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10 OPTION BASE 1 :: DIM A$(24,5),BIN$(16),HEX$(16):: CALL CHARSET :: ON WARNING 
NEXT :: ON BREAK NEXT 
20 @$,C$=RPT$("0201",15)&"16" :: F$="£ PROCEDO ? (S:N)" :: RESTORE 1150 
30 FOR I=1 TO 16 :: READ BIN$(I),HEX$(I):: NEXT I 
40 GOTO 1070 
50 DISPLAY AT(10,1)ERASE ALL: "NUMERO PAGINA ?(1-5)" 1: ACCEPT AT(10,25)VALIDATE( 
"12345")SIZE(1)BEEP:5C$ :: IF SC$="" THEN 50 ELSE P=VAL(SC$) 
50 DISPLAY AT(10,1): "VUOI CANCELLARLA ? (S:N) S" :: ACCEPT AT(10,26)VALIDATE(*SN 
")SIZE(-1)BEEP:SC$ :: IF SC$="N" THEN 80 
70 FOR R=1 TO 24 :: A$(R,P)=RPT$(" ",32):: NEXT R 
80 FOR R=1 TO 24 :: CALL P(R,P,A$(,)):: ENT R 
90 R=1 :: C=3 :: CALL SPRITE(£1,62,2,1 
100 RR=R*8-7 :: CC=C#8-7 :: CALL coone RR, CC) TEXT EDITOR 
110 CALL KEY(5,k,S):: IF S=0 THEN 110 
120 CALL SOUND(-30,3000,15) 
130 IF K>31 THEN A$(R,P)=SEG$(A$(R,P),1,C-1)&CHR$(K)&SEG$(A$(R,P),C+1,32-C):: CA 
LL HCHARCR,C,K):: K=9 
140 IF K=9 THEN IF C<30 THEN C=C+1 :: GOTO 100 ELSE IF R<24 THEN C=3 :: R=R+1 :: 
GOTO 100 ELSE GOTO 100 
150 IF K=13 THEN IF R<24 THEN R=R+1 :: C=3 1: GOTO 100 ELSE GOTO 100 
160 IF K=8 THEN IF C>3 THEN C=C-1 :: GOTO 100 ELSE IF R>1 THEN R=R-1 1: C=30 ::: 
GOTO 100 ELSE GOTO 100 
170 IF K=10 OR K=11 THEN R=R-(K=11)#(R>1)+(K=10)#(R<24):: GOTO 100 
180 IF K=7 THEN A$(R,P)=SEG$(A$(R,P),1,C-1)&RPT$(" ",31-C)&SEGS(A$(R,P),31,2):: 
CALL HCHAR(R,C,32,31-C):: GOTO 100 
190 IF K=4 THEN A$(R,P)=SEG$(A$(R,P),1,C-1)&" "&SEG$(A$(R,P),C,30-C)&SEG$(A$(R,P 
),31,2):: CALL P(R,P,A$(,)):: GOTO 100 
200 IF K=3 THEN A$(R,P)=SEG$(A$(R,P),1,C-1)&SEG$(A$(R,P),C+1,30-C)&"&SEG$(A$ (R 
,P),31,2): CALL P(R,P,A$(,)):: GOTO 100 
210 IF K=14 THEN CALL DELSPRITE(£1):: GOTO 90 
220 IF K=12 THEN CALL DELSPRITE(£1):: GOTO 110 
230 IF K=i5 THEN CALL DELSPRITE(£1):: GOTO 1070 
240 IF K=2 THEN CALL DELSPRITE(£1):: GOTO 50 
250 GOTO 100 
260 DISPLAY AT(1,1)ERASE ALL: "SEZIONE CARATTERI" :: DISPLAY AT(11,1):"VUOI VEDER 
E L'ATTUALE SET ? (S:N)" 
270 CALL GET("SN",K):: IF K=78 THEN 360 
280 CALL HCHAR(4,1,32,640):: DISPLAY AT(3,1):"NCH CHAR PATTERN 16 CH" 1: D 
ISPLAY AT(24,1):"FCTN(7)=SALTA FCTN(8)=REINIT" 
290 FOR I=1 TO 5 :: FOR J=i TO 20 :: R=20+I+J+11 
300 DISPLAY AT(J+3,1):USING 1140:R :: CALL CHARPAT(R,SC$):: DISPLAY AT(J+3,6):SC 
$ :: DISPLAY AT(J+3,28):CHR$(R) 
310 NEXT J :: CALL GET(CHR$(1)&CHR$(6)&CHR$(13),K) 
320 IF K=6 THEN 280 ELSE IF K=1 THEN 360 
330 NEXT I :: FOR I=1 TO 12 
340 DISPLAY AT(I+3,1):USING 1140:I+131 :: CALL CHARPAT(I+131,SC$):: DISPLAY AT(I 
+3,6):5C$ :: DISPLAY AT(I+3,28):CHR$(I+131) 
350 NEXT I :: CALL GET(CHR$(1)&CHR$(6)&CHR$(13),K)s: IF K=6 THEN 280 
360 DISPLAY AT(1,1)ERASE ALL: "SEZIONE CARATTERI" :: DISPLAY AT(11,1): "VUOI DEFIN 
IRE UN NUOVO SET DI CARATTERI ? (S:N)" 
370 CALL GETC"SN",K):: IF K=78 THEN 1070 
375 CALL C(@$) 
380 CALL CHARPAT(39,5C39$,40,5C40$):: CALL CHAR(39, "FF818181818181FFFF8191818181 
B1FF"):: CALL COLOR(1,2,1,2,2,5) 
390 CALL HCHAR(11,1,32,54):: DISPLAY AT(16,1):"MENU 1":"":"0 = OFF":"1 = ON" 
:"F[41= REINIT": "F[6]= PROC'D" 
400 DISPLAY AT(23,1):"I CARATTERI 39 E 40 NON SONOVISUALIZZABILI" 
410 DISPLAY AT(3,10): "NUMERO CARATTERE :" :: DISPLAY AT(6,10): "STRINGA DEFINIT 
:" s: DISPLAY AT(9,10):"SAGOMA REALE :" 
420 FOR R=3 TO 10 :: CALL HCHAR(R,3,39,8):: NEXT R 
430 ACCEPT AT(4,10)VALIDATE (DIGIT) SIZE(3) BEEP:N :: IF N<32 OR N>143 THEN 430 
440 ACCEPT AT(7,10)VALIDATE("0123456789ABCDEF")SIZE(16):5C$ :: IF SC$="" THEN CA 
LL CHARPATiN,5C$) ELSE IF 5C$="0" THEN SC$=RPT$("0",16) 
450 CALL SCRIVI(3,3,5C$,BIN$()) 
460 CALL SPRITE(£1,42,2,1,1):: R,C=3 
470 RR=R#8-7 :: CC=C#8-7 :: CALL LOCATE(£1,RR,CC) 
480 CALL KEY(5,K,5):: IF S=0 THEN 480 
490 IF K=48 OR K=49 THEN CALL HCHAR(R,C,K-9):: K=9 
500 IF K=9 THEN IF C<10 THEN C=C+1 :: GOTO 470 ELSE IF R<10 THEN C=3 1: R=R+1 :: 


GOTO 470 ELSE GOTO 470 

510 R=R-(K=11)*(R>3)+(K=10)#(R<10)s: C=C-(K=8B)#(C>3) 

520 IF K=2 THEN 420 

530 IF K<>12 THEN 470 

3540 DISPLAY AT(12,10): "ATTENDERE" :: CALL LEGGI(3,3,5SC$,HEX$()):: DISPLAY AT(7,1 
0)SIZE(16):5C$ 

350 IF N=39 THEN SC39$=SC$ ELSE IF N=40 THEN SC40$=5C$ ELSE CALL CHAR(N,SC$):: S 

C$="" :: DISPLAY AT(10, 10) :CHR$ (N) 

360 DISPLAY AT(12,10): "ANCORA ? [S:N]" :: CALL GET("SN",K):: IF Kk=83 THEN CALL H 

CHAR(10,12,32):: CALL HCHAR(7,12,32,16):: CALL HCHAR(12,10,32,17):: GOTO 420 

570 CALL CLEAR :: CALL CHAR(39, SC39$&SC40$):: CALL DELSPRITE(£1):: CALL C(C$):: 
GOTO 1070 

380 DISPLAY AT(9,1)ERASE ALL: "SEZIONE COLORE" :: DISPLAY AT(11,1):F$ :: CALL GET 
("SN",K):: IF Kk=78 THEN 1070 ELSE CALL HCHAR(11,1,32,32):: RESTORE 1190 

590 FOR R=1 TO ié STEP 2:: READ SC$,B$ 

600 PRINT STR$(R);TAB(4);SC$;TAB(14);R+1;TAB(18);B$ 

610 NEXT R :: DISPLAY AT(15,1):"SET COLORI DISPONIBILE" 

620 DISPLAY AT(3,1):"VUOI DEFINIRE UN UNICO COLO-RE DI FORE/BACKGROUND ?(S:N)" : 
*» CALL GET("SN",K):: IF Kk=83 THEN 690 

6350 DISPLAY AT(3,1): "IMPOSTA IL SOLO CODICE CORRISPONDENTE PER OGNI SET":"":"I 
SET VANNO DA 0 A 14":"SET DA AU FOREG BACKG" 

640 RESTORE 1170 :: C$="" :: FOR R=0 TO 14 :: READ SC$,B$ 

650 DISPLAY AT(9,1):USING 1140:R :: DISPLAY AT(9,5) USING 1140:5C$ :: DISPLAY AT 
(9,9) : USING 1140:B$ 

660 ACCEPT AT(9,13)VALIDATE (DIGIT)SIZE (2) :SC$ :: ACCEPT AT(9,19)VALIDATE(DIGIT)S 
IZE (2) :B$ :: CALL CHECK(SC$,B$):: C$=C$&5C$&B$ 

670 NEXT R :: CALL HCHAR(3,1,32,320):: DISPLAY AT(3, 1): "IMPOSTA ORA IL COLORE SF 
ONDO” :: ACCEPT AT(5,1)VALIDATE(DIGIT)SIZE (2) :B$ 

680 CALL CHECK (SC$,B$):: C$=C$&B$ :: CALL C(C$):: GOTO 1070 

690 DISPLAY AT(3,1):"IMPOSTA IL SOLO CODICE CORRISPONDENTE ":"":"FOREG :":"": "BA 

CKG 1" 

700 ACCEPT AT(6,14)VALIDATE (DIGIT)SIZE(2):SC$ :: ACCEPT AT(8,14)VALIDATE (DIGIT)S 
IZE(2):B$ :: CALL CHECK(SC$,B$):: SC$=SC$&"O1" 

710 C$="" :: FOR R=1 TO 15 :: C$=C$&SC$ :: NEXT R_:: C$=C$&B$ :: CALL C(C$):: GO 

TO 1070 

720 DISPLAY AT(20,1)ERASE ALL: "SEZIONE INPUT NASTRO" :: PRINT :RPT$("£",28) 

730 PRINT :F$ :: CALL GET("SN",K):: IF K=78 THEN 1070 

740 OPEN £1:"CS1", INTERNAL, INPUT ,FIXED 128 :: INPUT £1:11$,12$,I35$,14$ :: CLOSE 
£1 

750 PRINT :"£ INFORMAZIONI :":"":"! "sI1$:"! "sI2$1"! "sI35$:"! "s14$:"":F$ :: CA 

LL GET("SN",K):: IF K=78 THEN 1070 

750 OPEN £1:"CS1", SEQUENTIAL, INTERNAL, INPUT ,FIXED 192 

770 PRINT :"£ COLORI & CARATTERI ? (S:N)" :: CALL GET("SN",K):: IF K=78 THEN 820 
780 PRINT " ili RECORD :" :: N=1770 

790 FOR I=1 TO 10 :: DISPLAY AT(235,14):N ss N=N+1 :: FOR J=it TO 10 s: INPUT £1:5 
C$,:: CALL CHARC(I-1)#11+J+31,5C$):: NEXT J 

800 INPUT £1:5C$ :: CALL CHAR((I-1)*11+42,SC$):: NEXT I 

810 DISPLAY AT(23,14):N :: INPUT £1:5C$,C$ :: CALL CHAR(143,5C$):: CALL C(C$) 
820 PRINT :"£ TESTO ? (S:N)" 1: CALL GET("SN",K):: IF K=78 THEN 880 

850 FOR P=1 TO 5 _:: PRINT :" PAGINA"5P5" ? (SiN)" 1: CALL GET("SN",K):: IF K=78 
THEN 870 

840 PRINT :" 05 RECORD :" :: N=1 


850 FOR I=1 TO 4 :: DISPLAY AT(23,14):N :: N=N+1 :: FOR J=1 TO 4 :: INPUT £1:A$( 
{(I-1)#5+J,P),:: NEXT Jos: INPUT £1:A$(I*5,P):: NEXT I 

860 DISPLAY AT(23,14):N :: FOR J=21 TO 23 :: INPUT £1:A$(J,P),:: NEXT J_:: INPUT 
£1:A$(24,P) 

870 NEXT P 


880 CLOSE £1 :: CALL CLEAR =: GOTO 1070 

890 DISPLAY AT(20,1)ERASE ALL: "SEZIONE OUTPUT NASTRO" :: PRINT :RPT$("£",28) 

900 PRINT :F$ :: CALL GET("SN",K):: IF k=78 THEN 1070 

910 PRINT :"£ INFORMAZIONI :":"" :: INPUT I1$ :: INPUT I2$ :: INPUT I3$ :: INPUT 
14$ :: PRINT :F$ :: CALL GET("SN",K):: IF K=78 THEN 1070 

920 OPEN £1:"CS1", SEQUENTIAL, INTERNAL, OUTPUT, FIXED 128 :: PRINT £1:I1$,12$,I3$,I 

4$ :: CLOSE £I 

930 OPEN £1:"CS1",SEGUENTIAL, INTERNAL, OUTPUT,FIXED 192 

940 PRINT :"£ COLORI & CARATTERI ? (S:N)" 

950 CALL GET("SN",k):: IF k=78 THEN 1000 

960 PRINT " 11 RECORD :" :: N=1 


970 FOR I=i TO 10 :: DISPLAY AT(23,14):N :: N=N+1 1: FOR J=1 TO 10 :: CALL CHARP 
AT((I-1)#11+J+31,SC$):: PRINT £1:5C$,:: NEXT J 

980 CALL CHARPAT((I-1)*11+42,5C$):: PRINT £1:SC$ :: NEXT I 

990 DISPLAY AT(23,14):N :: CALL CHARPAT(143,SC$):: PRINT £1:5C$,C$ 

1000 PRINT :"£ TESTO ? (S:N)" :: CALL GET("SN",K):: IF K=78 THEN 1060 

1010 FOR P=1 TO 5 :: PRINT :"  PAGINA"5P3" ? (S:N)" 1: CALL GETC"SN",K):: IF k=7 
8 THEN 1050 

1020 PRINT :" 05 RECORD :" :: N=1 

1030 FOR I=1 TO 4 :: DISPLAY AT(23,14):N :: N=N+1 :: FOR J=1 TO 4 :: PRINT £1:A$ 
((I-1)#5+J,P),:: NEXT J :: PRINT £1:A$(I#5,P)s: NEXT I 

1040 DISPLAY AT(23,14):N :: FOR J=21 TO 23 :: PRINT £1:A$(J,P),:: NEXT J :: PRIN 
T £1:A$(24,P) 

1050 NEXT P 

1060 CLOSE £1 :: CALL CLEAR :: GOTO 1070 

1070 DISPLAY AT(1,1)ERASE ALL: "MARANGONI SOFWARE PRESENTS: " 

1080 DISPLAY AT(5,3):"TEXT EDITOR 28*24#5" :: CALL HCHAR(4,1,35,32):: CALL HCH 
AR(6,1,35,32) 

1090 DISPLAY AT(10,1):"1 REDAZIONE": :"2 INPUT NASTRO": :"3 OUTPUT NASTRO": :"4 
DEF CARATTERI": :"5 DEF COLORI": :"6 END" 

1100 DISPLAY AT(24,1):"SCEGLI" :: ACCEPT AT(24,10)VALIDATE("123456")SIZE(1):SC$ 
1: SC=VAL(SC$) 

1110 ON SC GOTO 50,720, 890, 260,580, 1120 

1120 DISPLAY AT(12,8)ERASE ALL BEEP: "ARRIVEDERCI" 

1130 END 

1140 IMAGE £££ 

1150 DATA 0000,0,0001,1,0010,2,0011,3,0100,4,0101,5,0110,6,0111,7,1000,8 

1160 DATA 1001,9,1010,A,1011,B,1100,C,1101,D,1110,E,1111,F 

1170 DATA 30,31,32,39,40,47,48,55,56,63,64,71,72,79,80,97 

1180 DATA 88,95,96,103,104,111,112,119,120,127,128,135,136,143 

1190 DATA TRASPARENT, NERO, VERDE, VERDE C,BLU S,BLU C,ROSSO S,CIANO, ROSSO, ROSSO C, 
GIALLO S,GIALLO C, VERDE S,MAGENTA, GRIGIO, EBANO 

1200 SUB GET(A$,K):: CALL SOUND(100,1047,6) 

1210 CALL KEY(0,K,5):: IF S=0 THEN 1210 ELSE IF POS(A$,CHR$(K),1)=0 THEN 1210 
1211 IF K<32 THEN SUBEXIT 

1220 CALL SPRITE(£2,K,2,177,241):: CALL MAGNIFY(2):: FOR T=1 TO 100 s: NEXT T :: 
CALL DELSPRITE(£2):: CALL MAGNIFY(1) 

1230 SUBEND 

1240 SUB C(A$) 

1250 FOR I=1 TO 57 STEP 4 :: F=VAL(SEG$(A$,I,2)):: B=VAL(SEG$(A$,1+2,2)) 

1260 CALL COLORCINT((I-1)/4),F,B):: NEXT I :: CALL SCREEN(VAL(5EG$(A$,61,2))) 
1270 SUBEND 

1280 SUB P(R,P,A$(,)) 

1290 DISPLAY AT(R, 1) SIZE(28):SEG$(A$(R,P),3,28):: CALL HCHAR(R,1,ASC(SEG$(A$(R,P 
Vie 

1300 CALL HCHAR(R,2,ASC(SEG$(A$(R,P),2,1))):: CALL HCHAR(R,31,ASC(SEG$(A$(R,P),3 
1,1))):: CALL HCHAR(R,32,ASC(SEG$(A$(R,P),32,1))) 

1310 SUBEND 

1320 SUB SCRIVI(R,C,A$,BIN$()):: A=i :: FOR Ri=R TO R+7 :: FOR C1=C TO C+7 STEP 
4 :: B$=SEG$(A$,A,1) 

1330 IF ASC(B$)<58 THEN K=VAL(B$)ELSE K=ASC(B$)-55 

1340 CALL ESA(R1,C1,BIN$(K+1)):: A=A+1 1: NEXT C1 :: NEXT RI 

1350 SUBEND 

1360 SUB ESA(R,C,A$):: FOR I=i TO 4 :: CALL HCHAR(R,C-1+I,ASC(SEG$(A$,I,1))-9):: 
NEXT I 

1370 SUBEND 

1380 SUB LEGGI (R,C,A1$,BIN$()):: Ai$="" :: FOR Ri=R TO R+7 :: FOR Ci=C TO C+7 ST 

EP 4 :: A$="" :: FOR C2=C1 TO C1+3 

1390 CALL GCHAR(R1,C2,C0D):: A$=A$&CHR$(COD+9):: NEXT C2 

1400 CALL B(A$,N):: A1$=A1$&BIN$(N+1):: NEXT C1 :: NEXT Ri :: SUBEND 

1410 SUB B(A$,N):: N=0 :: FOR I=3 TO 0 STEP -1 s: N=N+VAL(SEG$(A$,4-1,1))*2%I s: 
NEXT I :: SUBEND 

1420 SUB CHECK (A$,B$) 

1430 IF A$="" THEN A$="01" ELSE IF VAL(A$)<1 OR VAL(A$)>16 THEN A$="01" ELSE IF 

LEN(A$)=1 THEN A$="0"&A%$ 

1440 IF B$="" THEN B$="01" ELSE IF VAL(B$)<1 OR VAL(B$)>16 THEN B$="01" ELSE IF 

LEN(B$)=1 THEN B$="0"&B$ 

1450 SUBEND 


FOOD 133033161 

30010 '* Routine grafiche *# 

30020 !* by__Randone Carlo * 

Ki0/tk(0M8E 2727277777775 7$$.37.5.5. 

30040“ noHLOADED FROM 14 TIGGTUCIT 

30050 ! 

30060 SUB SAVEPICI 

30070 PRINT : "Inserire la cassetta su cui" :: PRINT " registrare il disegno." :: 
PRINT "Prendere nota della posi-" :: PRINT " zione del nastro !!": 
30080 OPEN £1:"CS1", INTERNAL, OUTPUT,FIXED{192) 

30090 PRINT :: SUBEND 

30100 SUB SAVEPIC2 

30110 I=0 :: N=0 :: DIM NP(L11) AA$(111) 

30120 FOR R=1 TO 24 :: FOR C=1 TO 32 

30130 CALL GCHAR(R,C,CAR):: IF CAR=32 THEN 30160 

30140 N=N+1 :: CALL CHARPAT(CAR,AA$(N)) 

30150 NP(N)=(R-1)#32+C 

30160 NEXT C :: NEXT R :: PRINT £1:N 

30170 FOR T=1 TON 

30180 I=I+1 :: IF I=7 THEN I=0 :: GOTO 30210 

30190 PRINT £1:NP(T),AA$(T), 

30200 GOTO 30220 

30210 PRINT £1:NP(T) ,AA$(T) 

30220 NEXT T 

30230 CALL SOUND(400,500,1):: CALL SOUND(6500, 900,1) 

30240 SUBEND 

30250 SUB CIRCLE (R_1,C_0,R) 

30260 k=.5 1: RI=INT(R_1+K)ss CO=INT(C_0+K):: IF R{=0 THEN SUBEXIT 

30270 DI=1/R :: D=2#PI s: FOR A=0 TO DSSTEP DI :: CALL PIXEL (RI+R#*COS(A),CO+R#SI 

NCA)):: NEXT A 

30280 SUBEND 

30290 SUB TRAIL(Y_1,X _1,Y 2,X_2) 

30300 A=1 13 K=.5 1: YI=INT(Y_ 1+K) sr X1=INT(CX_1+K) 33 Y2=INT(Y_2+K)ss X2=INT(X_2+ 

K) 

30310 IF X1=X2 AND Y1=Y2 THEN 30440 

303520 IF Y1=Y2 THEN 30460 

303350 IF X1=X2 THEN 30490 

30340 M=(Y2-Y1)/(X2-X1)s: N=Y1-MxX1 

30350 PX=ABS(X2-X1) 

30360 PY=ABS(Y2-Y1) 

30370 IF PX>=PY THEN 30410 

30380 IF Y2<Y1 THEN A=-1 

30390 FOR Y=Y1 TO Y2 STEP A :: X=(Y-N)/M :: CALL PIXEL(Y,X):: NEXT Y 
30400 SUBEXIT 

30410 IF X2<X1 THEN A=-1 

30420 FOR X=X1 TO X2 STEP A :3: Y=M*X+N :: CALL PIXEL(Y,X):s NEXT X 

30430 SUBEXIT 

30440 CALL PIXEL(Y1,X1) 

30450 SUBEXIT 

30460 IF X2<X1 THEN A=-1 

30470 FOR X=X1 TO X2 STEP A :=: CALL PIXEL(Y1,X)s: NEXT X 

30480 SUBEXIT 

30490 IF Y2XYi THEN A=-1 

30500 FOR Y=Y1 TO Y2 STEP A :=: CALL PIXEL (Y,X1):: NEXT Y 

30510 SUBEND 

30520 SUB PIXEL(R_I,C_0) 

30530 IF V<>0 THEN 30550 

30540 DIM Y(22),W$(15,4):: GOTO 30590 

30550 R=INT(R_I+KC):: C=INT(C_0+KC):: IF R<1 OR R>192 OR C<1 OR C>256 THEN 30640 
30560 A=INT(R/6G+H):: B=INT(C/G+H):: Z=C/0+H :: E=N#R-L#*A+P+INT(Z/B):: CALL GCHAR 
(A,B,k):: CALL CHARPAT(K,A$):: IF K=I THEN K,D=D+J 


30570 IF D>143 THEN 30640 

30580 CALL CHAR(K,SEG$(A$,J,E-J)&W$(Y(ASC(SEG$(A$,E,J))-M),C-Q#XINT(Z)+0)&SEG$(A$ 
sE+J,L)):: CALL HCHARCA,B,K):: SUBEXIT 

30590 FOR I=0 TO 9 :=: Y(I)=I :: NEXT I:: FOR I=17 TO 22 :: Y(I)=I-7 :: NEXT I: 
:» RESTORE 30620 :: D=32 :: Val os: 0=4 :: P=14 ss: KC=.5 

30600 FOR I=1 TO 4 TO 15 :: READ B$ :: W$(J,I)=B$ :: NEXT J_:: NEXT I 
t: 6=8:: H=.,9:: ts: L=16 1: M=48:: N=2 

30610 GOTO 30550 


30620 DATA 8,9,A,B,C,D,E,F,8,9,A,B,C,D,E,F,4,5,6,7,4,5,6,7,C,D,E,F,C,D,E,F 
30630 DATA 2,3,2,3,6,7,6,7,A,B,A,B,E,F,E,F,1,1,3,3,5,5,7,7,9,9,B,B.D,D,F,F 
30640 CALL SOUND(-50,860,0):: SUBEND 


30650 SUB TRIANG(R1,C1,R2,C2,R3,C3) 

30660 CALL TRAIL(R1,C1,R2,C2):: CALL TRAIL{R2,C2,R3,C3):: CALL TRAIL (R3,C3,R1,C1 
):: SUBEND 

30670 SUB RETTANGI (R_V,C_V.,B,H,Al) 

30680 K=.5 :: RV=INT(R_V+K)ss CV=INT(C_V+K) 

30690 IF A1<=90 THEN TVi=90-A1 ELSE TV1=450-A1 

30700 TV3=TV1+270 :: TVI=TV1*PI/180 :: TV3=TV3#PI/180 

30710 C1=CV+B#*SIN(TV1):: R1=RV+B#*COS(TV1):: C3=CV+H*SIN(TV3):: R3=RV+H#COS(TV3) 
30720 C2=C3+B#SIN(TV1):: R2=R3+B#COS(TV1) 

30730 CALL TRAIL (RV,CV,R1,C1):: CALL TRAIL(R1,C1,R2,C2):: CALL TRAIL(R2,C2,R3,C3 
):: CALL TRAIL(R3,C3,RV,CV):: SUBEND 

30740 SUB RETTANG2(R_0,C_0,B,H,A3) 

30750 A2=A3#*PI/180 :: K=.5 1: RO=INT(R_0+K):: CO=INT(C_0+K):: L=SQR(B*B+H*H)/2 : 
: K2=A2+ATN(H/B) 

30760 TOO=PI/2*3-K2 :: RO=RO+L#*COS(TD0):: C0=C0+L*SIN(T00):: CALL RETTANGI (RO,C0 
sB,H,A3):: SUBEND 

30770 SUB MGLOBAL (C1,C2,C3,C4,C5) 

30780 IF VARIA<>0 THEN 30800 

30790 DIM A(32):: VARIA=1 

30800 CALL SOUND (200, 900,0) 

30810 CALL KEY(0,K,S):: IF S=0 THEN 30810 

30820 CALL SOUND (200, 1000,0):: IF K=C1 THEN 30880 

30830 IF k=C2 THEN 30910 

30840 IF K=C3 THEN 30940 

350850 IF k=C4 THEN 30970 

30860 IF k=C5 THEN CALL SOUND (200, 800,0):: SUBEXIT 

30870 GOTO 30810 

30880 FOR C=1 TO 32 :: CALL GCHAR(1,C,A(C)):: NEXT C 

30890 FOR R=2 TO 24 :: FOR C=1 TO 32 :: CALL GCHAR(CR,C,CAR):: CALL HCEHAR(R-1,C,C 
AR) :: NEXT C :: NEXT R 

30900 FOR C=1 TO 32 :: CALL HCHAR(24,C,A(C)):: NEXT C:: GOTO 30800 

30910 FOR C=1 TO 32 :: CALL GCHAR(24,C,A(C)):: NEXT C 

30920 FOR R=23 TO 1 STEP 1:: FOR C=1 TO 32 :: CALL GCHARCGR,C,CAR):: CALL HCHAR 
{R+1,C,CAR):: NEXT C :: NEXT R 

30930 FOR C=1 TO 32 :: CALL HCHAR(1,C,A(C)):: NEXT C :: GOTO 30800 

30940 FOR R=1i TO 24 :: CALL GCHARR,1,A(R)):: NEXT R 

30950 FOR C=2 TO 32:: FOR R=1i TO 24 ::: CALL GCHARGR,C,CAR):: CALL HCHARIR,C-1,C 
AR) :: NEXT R:: NEXT C 

30960 FOR R=i TO 24 :: CALL HCHARCR,32,A(R)):: NEXT R:: GOTO 30800 

30970 FOR R=1 TO 24 :: CALL GCHAR(R,32,A(R)):: NEXT R 

30980 FOR C=31 TO 1 STEP 1 ::: FOR R=1 TO 24 :: CALL GCHARIR,C,CAR):: CALL HCHAR 
{R,C+1,CAR):: NEXT R_:: NEXT C 

30990 FOR R=1 TO 24 :: CALL HCHARCR,1,A(R)):: NEXT R:: GOTO 30800 :: SUBEND 
31000 SUB CIRCLE3(Y_1,X_1,Y _ 2,X_2,Y _3,X_3) 

ZIOLO K=.5 ss YI=INT(Y_1+K)22 XA=INT(X_1+K)s2 Y2=INT{(Y_2+K) ss X2=INT(X_2+K)ss Y3 
=INT(Y_3+K)ss: X3=INT(X_3+K):: GOTO 31060 

SIOZO T1=-(X1*X1+Y1*Y1)s:s T2=-(X2%*X2+Y2%Y2)s: T3=-(X3XX3+Y3#Y3)t: DE=X1*(Y2-Y3)- 
Y1*(X2-X3)+X2XY3-Y2#X3 

310350 DA=T1*(Y2-Y3)-Y1*(T2-T3)+T2#*Y3-T3#Y2 1: DB=X1#*(T2-T3)-T1#*(X2-X3)+X2#T3-X3% 
T2 

31040 DC=X1%*(Y2*T3-Y3*T2)-Y1#(X2*T3-X3*T2)+T1*(X2*Y3-X3#Y2):: CALL PIXEL (Y1,X1): 
» CALL PIXEL {(Y2,X2):: CALL PIXEL(Y3,X3) 

31050 A=DA/DE :: B=DB/DE :: C=DC/DE :: XC=-A/2 31: YC=-B/2 :: R=SQR(XC#XC+YCXYC-C 
):: CALL CIRCLE(YC,XC,R):: SUBEXIT 

31060 IF (X1=X2 AND X2=X3)OR(Y1=Y2 AND Y2=Y3) THEN SUBEXIT 

31070 GOTO 31020 :: SUBEND 


10 CALL CLEAR :: COL=2 :: SCH=2 

11 DISPLAY AT(1,1):"---------------------------- i 

20 DISPLAY AT(2,1):" LETTURA DISEGNI DA NASTRO" 

30 DISPLAY AT(3,1)1"---------------------------- da 

40 DISPLAY AT(5,1):"I disegni dovresti averli" :: DISPLAY AT(6,2): "memorizzati s 
u questo stes-" 

41 DISPLAY AT(7,2):"so nastro, dopo il presente" :: DISPLAY AT(8,2): "programma p 
rincipale." 

60 DISPLAY AT(10,1):"A DISEGNO TERMINATO, PREMI :" :: DISPLAY AT(12,1):" C per c 
ambiarne il colore;" 

70 DISPLAY AT(13,1):" S per cambiare il colore" :: DISPLAY AT(14,1):" dello sf 

ondo;" 

80 DISPLAY AT(15,1):" UN ALTRO TASTO per finire." 

90 DISPLAY AT(17,1):"COD. COLORE SFONDO :" :: ACCEPT AT(17,21)BEEP:CS 

100 DISPLAY AT(19,1): "COLORE DISEGNO :" 

110 DISPLAY AT(21,1):" COLORE UNICO ‘U) O COLORATO" 

120 DISPLAY AT(22,1):" CON VARIE TINTE (V) ?" :: ACCEPT AT(22,24)SIZE(1)VALIDATE 
("UV") BEEP: Z% 

130 IF, Z$="V" THEN 150 

140 DISPLAY AT(24,1):"COD. COLORE DISEGNO :" :: ACCEPT AT(24, 22) BEEP:CD 

150 PRINT :: OPEN £1:"CS1", INTERNAL, INPUT ,FIXED(192) 

160 CALL CLEAR :: CALL SCREEN(CS):: IF Z$="V" THEN 170 ELSE 180 

170 FOR I=1 TO 14 :=: CALL COLOR(I,I+2,1):: NEXT I:: GOTO 190 

180 FOR I=li TO 14 :: CALL COLOR(I,CD,1):: NEXT I 

190 I=0 :: H=32 :: INPUT £1:N 

200 FOR Y=1 TO N:: I=I+1 :: IF I=7 THEN I=0:: GOTO 230 

210 INPUT £1:NP1,A6$, 

220 GOTO 240 

230 INPUT £1:NP1,A$ 

240 H=Ht1 :: CALL CHAR(H,A$):: R=INT(NP1/32+.97):: CALL HCHARGR,NPI-(R-1)#32,H): 
s NEXT Y 

250 CALL SOUND(400,500,1):: CALL SOUND(6400,900, 1) 

260 CALL KEY(0,K,5):: IF S=0 THEN 260 

270 IF CHR$(K)="C" THEN 380 

280 IF CHR${K)="S" THEN VRR=1 :: GOTO 450 

290 CALL CLEAR :: CALL CHARSET :: FOR I=i TO 14 :: CALL COLOR(I,2,1):: NEXT It: 
CALL SCREEN(8):: CLOSE £i 

300 CALL CLEAR :: PRINT "1-USCIRE DAL PROGRAMMA" 

310 PRINT :"2-LEGGERE UN ALTRO DISEGNO" 

320 PRINT :o ss: 

3350 CALL KEY(0,K,5):: IF S=0 THEN 330 

340 IF CHR$(K)="1" THEN 370 

350 IF CHR${K)="2" THEN 10 

360 GOTO 3350 

370 CALL CLEAR :: END 

380 COL=COL+1 :: I=0 ss: IF COL>16 THEN COL=2 

390 I=I+1 :: CALL COLOR(I,COL,1) 

400 CALL KEY(0,K,S):: IF S=0 THEN 400 

410 IF CHR$(K)="C" THEN 440 

420 IF CHR$(K)="S" THEN VRR=2 :: GOTO 450 

430 GOTO 290 

440 FOR TYY=1 TO 20 :: NEXT TYY :s IF I=14 THEN 260 ELSE 390 

450 SCH=SCH+1 :: IF SCH>16 THEN SCH=2 

460 CALL SCREEN(SCH):: FOR TYY=1 TO 20 :: NEXT TYY 

470 ON VRR GOTO 260,400 
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LArAAAZAAIATATITTTTIZIZI AI 


La sfida di una Gara Automobilistica..... 


100 CALL CLEAR 

105 REM 

110 REM FRANCOMPUTER CLUB 

115 REM 

120 PRINT "SORPASSA TUTTI !'! MA ATTENTOA NON TOCCARE IL CORDOLO. —BUONA FORTUNA 
! USA JOYSTICK 2" 

130 FOR @=1 TO 1500 :: NEXT @ » 

140 CALL CLEAR adi. 

150 DIM V(4),C0L (4) 

160 CALL CHAR(120, "OFOFOFOFOFOFOFOF") 

170 CALL CHAR(121, "FOFOFOFOFOFOFOFO") 

180 CALL CHAR(128, "183C3EFFFFFFFE1C") 

190 CALL CHAR(136,"1F01677F6FOF1F1F1F1F1FCFFFFFDF 1FF880E6FEF 6FOF8F8F8F8F8F3FFFFF 

BF8") 

200 CALL CHAR(140, "C26C3D1D1FA743173F0F3C4E9324080880454EDAFOFCFBFOEAF4B8BCDE69 1 

820") 

210 CALL COLOR(12,2,11) 

220 CALL COLOR(13,4,1) 

230 CALL CLEAR :: CALL SCREEN(15):: CALL MAGNIFY(3) 

240 CALL VCHAR(1,8,120,24):: CALL VCHAR(1,25,121,24) 

250 CALL VCHAR(14,2,128,5):: CALL VCHAR(12,3,128,8) 

260 CALL VCHAR(2,5,128,5):: CALL VCHAR(16,5,128,4) 

270 CALL VCHAR(2,6,129,4):: CALL VCHAR(11,6,128,3) 

280 CALL VCHAR(17,6,128,5):: CALL VCHAR(9,7,128,6) 

290 CALL VCHAR(20,7,128,4):: CALL VCHAR(5,26,128,3) 

300 CALL VCHAR(4,27,128,6):: CALL VCHAR(16,27,128,7) 

310 CALL VCHAR(3,28,128,6):: CALL VCHAR(17,28,128,5) 

320 CALL VCHAR(4,29,128,3):: CALL VCHAR(5,30,128,3) 

330 CALL VCHAR(3,31,128,6):: P=0 

340 DATA 5,14,13,10,6 

350 RANDOMIZE 

360 FOR J=0 TO 4 :: V(J)=INT(RND#*30)+10 :: READ COL(J):: NEXT J 

370 CALL SPRITE(£1,136,2,177,121) 

380 FOR J=0 TO 4 :: CALL SPRITE(£(J+2),136,C0L(J),1,24#J+73,V(3),0):: NEXT J 

390 CALL JOYST(2,X,Y):: CALL MOTION(£1,-Y#3,X#5) 

400 P=P+5 1: CALL POSITION(£1,A,B):: IF B<65 OR B>185 THEN 410 ELSE CALL COINC(A 

LL,C):: IF C<>-1 THEN 390 

410 CALL MOTION(£1,0,0):: CALL PATTERN(£1,140):: CALL COLOR(£1,7):: CALL SOUND(2 

000,-7,3) 

420 FOR A=1 TO 500 :: NEXT A 

430 CALL DELSPRITE(ALL):: CALL CLEAR 

440 PRINT "PUNTEGGIO ACQUISITO :",,TAB(10);P 

450 PRINT ,, "GIOCHI ANCORA ? (S/N)" 

460 CALL KEY(0,K,5) 

470 IF S=0 THEN 460 

480 IF K=83 OR K=115 THEN RESTORE :: GOTO 230 

490 CALL CLEAR :: END 


5 REM BY RANDONE CARLO 

6 REM 

10 GOSUB 20 :: GOSUB 850 :: GOSUB 20 :: GOSUB 1040 :: GOSUB 1170 :: GOSUB 3030 : 
» GOSUB 1170 :: GOSUB 3250 :: END 

20 K=64 1: K1=69 1: K2=58 


30 CALL T(K,1047,20,659,12,262,24) 540 CALL S(K1,494,8,44000,30) 

40 CALL S(K,1047,20,659,12) 650 CALL S(K1,698,7,440,24) 

50 CALL T(K,1047,20,659, 12,523, 24) 550 CALL S(K1,659,7,44000,30) 

60 CALL S(K,1047,20,659,12) 670 CALL T(K,659,7,784,20,262,24) 
70 CALL T{K,1047, 20,659,12,494, 24) 680 CALL S(K,659,7,784,20) 

80 CALL S(K,1047,20,659,12) 690 CALL T(K,659,7,784,20,523,24) 
90 CALL T(K,1047,20,659,12,247,24) 700 CALL S(K,659,7,784,20) 

100 CALL S(K,1047, 20, 659,12) 710 CALL T(K,659,7,784,20,494,24) 
110 CALL T(K,1047, 20,659, 12,220, 24) 720 CALL S(K,659,7,784,20) 
120 -CALL Stb,1937,29,697,12) 730 CALL T(K,784,20,247,24,740,6) 
130 CALL T(K,1047, 20,659, 12,440, 24) apra fedi data: 


7 i 2 

140 CALL S(K,1047,20,659,12) ridire as Cie: 
i e 750 CALL T(K,784,20,523,6,220,24) 
x , DIE Adi pei dei ie 760 CALL S(K,784,20,523,6) 


4 n n 
160 CALL S{K,1047,20,559,12) 770 CALL T(K2/2,440,24,740,19,523,6) 


peter bai cinesi eoed asi ini ira 780 CALL T(K2/2,440,24,740,19,587,6) 
è Pi e . . 

Sani 790 CALL S(K,784,18,659,6) 

190 CALL T(K,1047,20,659,12,175,24) 800 CALL T(k,880,18,659,6,370,24) 

200 CALL S(K,1047,20,659, 12) 810 CALL S(K,880, 18,587, 6) 

210 CALL 5(K,349, 24,880, 10) 820 CALL T(K,698,18,294,24,587,6) 

220 CALL S(K,698,9,44000, 30) 830 CALL S(K,698,18,523,6) 

230 CALL T(K,880,20,370,24,587,9) 840 RETURN 

240 CALL S‘K,880,20,523,8) 950 K=64 11 K2=58 

290" ERC4 Ti, BA, 20, 209, 2 9) 860 CALL T(K,784,15,392,24,494,6) 


260 CALL S(K,880,20,523,8) 

270 CALL T(K,784,20,494,9,196,24) 
280 CALL S(K,784,20,494,9) 

290 CALL T(K,784,20,494,9,392, 24) 
300 CALL S(K,784,20,440,9) 

310 CALL T(K,784,20,392,10,349,24) 
320 CALL S(K,784,20,392,10) 

330 CALL T(K,784,20,392,10,175,24) 
340 CALL S(K,784,20,392,10) 

350 CALL T(K,784,10,784,20,165,24) 
360 CALL S(K,784,10,44000,30) 

370 CALL T(K,784,10,330,24,932, 14) 
380 CALL S(K,784,10,880,14) 

390 CALL T(K,784,10,932,14,294,24) 
400 CALL S(K,784,10,932,14) 

410 CALL T(K,784,10,147,24,1568,14) 
420 CALL S(K,784,10,932,14) 

430 CALL T(K,784,10,880,15,139,24) 
440 CALL S(K1,659,9,44000,30) 

450 CALL S(K1,466,8,277,24) 


460 CALL S(K1,440,8,44000, 30) 
470 CALL S(K1,587,8,220,24) 1070 CALL T(K2/2,784,16,440,7,262,24) 


490 CALL 5(K1,784,9,440,24) 1090 CALL S(K,784,16,523,8) 
500 CALL S(K,698,9,44000,30) 1100 CALL T(K,784,16,523,9,294, 24) 


510 CALL T(K,698,10,880,14,147,24) Da Sora ia » 
520 CALL S(K,698,10,880,14) 112 "Ai ee Je i ai 


530 CALL T(K,698,10,294,24,1175,14) da en ui i 
540 CALL S(K,699,10,1047,14) dre i iii, 


{+ =, “e 
550 CALL T(K,698,10,262,24,1175,14) 1499 CAL ARA 000 a S 3300000) 


RETURN 
560 CALL S(K,698,10,1319,14) oa ci 


870 CALL S(K,784,16,440,6) 

880 CALL T(K2/2,784,16,440,7,262,24) 
890 CALL T(K2/2,784,16,492,7,262, 24) 
900 CALL S(K,784,16,523,8) 

910 CALL T(K,784,16,523,8,294,24) 
920 CALL S(K,784,16,523,8) 

930 CALL T(K,740,18,494,9, 147,24) 
940 CALL S(K,740,18,440,9) 

950 CALL T(K,392,10,196,20,784, 20) 
950 CALL T(K,392,10,220,19,784,20) 
970 CALL T(K,392,10,247,19,784,20) 
980 CALL T(K,392,10,262,18,784,20) 
990 CALL T(K,392,10,294,18,784,20) 
1000 CALL T(K,392,10,349,17,784,20) 
1010 CALL T(K,392,10,330,17,784,20) 
1020 CALL T(K,392,10,294,17,784,20) 
1030 RETURN 

1040 K=64 1: K1=300 :: K2=58 

1050 CALL T(K,784,15,392,24,494,8) 
1060 CALL S(K,784,16,440,6) 


s: K2=56 
570 CALL T(K,698,10,131,24,1397,14) 1180 CALL T(K,794,19,494,10,196,22) 
580 CALL S(K,698,10,1175,14) 1190 CALL S(K,784,18,494,10) 
590 CALL T(K,698,10,784,15,123,24) 1200 CALL T(K,784,18,494,10,392,22) 


600 CALL S(K,784,15,587,9) 
610 CALL S(K1,440,8,247,24) 
620 CALL S(K1,392,8,44000,30) 
630 CALL S(K1,523,8,196,24) 


1210 CALL S(K,784, 18,494, 10) 


1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1500 
13510 
13520 
135350 
1540 
1350 
13560 
1370 
1580 
13590 
1400 
1410 
1420 
14350 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1550 
1540 
1550 
1560 
1570 
1590 
1590 
1500 
1610 
1620 
16350 
1640 
1550 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1750 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1920 
18350 
1940 
1850 


CALL T(K,784,18,494,10,349, 22) 
CALL 5(K2/2,784,18,523,9) 

CALL S(K2/2,784,18,494,9) 

CALL T(K2/2,784,18,440,9,175,22) 
CALL T(K2/2,784,18,494,9,175,22) 
CALL 5(K,392,9,784,18) 

CALL T(K,784, 18,784,8,165,22) 
CALL 5(K,784,8,880,16) 

CALL T(K,784,8,932,14,330,22) 
CALL S(K,784,8,932,14) 

CALL T(K,784,8,932,14,294,22) 
CALL 5(K,784,8,880,13) 

CALL T(K,466,7,784,13,147,22) 
CALL 5(K,466,7,698,12) 

CALL T(K,440,7,659,12,139,22) 
CALL 5(K,440,7,698,11) 

CALL T(K,880,8,784,11,277,22) 
CALL 5(K,880,8,659,12) 

CALL T(K,880,8,534,12,330,22) 
CALL S(K,784,8,534,12) 

CALL T(K,698,8,1109,14,220,22) 
CALL 5(K,659,8,1109,14) 

CALL T(K,698,8,1175,15,294,22) 
CALL 5(K,698,8,1175,15) 

CALL T(K,698,8,1175,15,597,22) 
CALL 5(K,698,8,1175,15) 

CALL T(K2/2,6989,8,587,16,523,2 
CALL T(K2/2,659,9,597,106,523,2 
CALL S(K2/2,587,9,5987,16) 

CALL S(K2/2,523,9,587,16) 

CALL T(K,494,10,587,16,262,22) 
CALL S(K,440,10,587,16) 

CALL T(K,415,10,587,16,247,22 
CALL 5(K,440,10,523,15) 

CALL T(K,494,9,587,15,494,22) 
CALL S(K,494,9,659,14) 

CALL T(K,494,9,698,14,440,22) 
CALL 5(K,523,9,659,13) 

CALL T(K,587,8,698,13,220,22) 
CALL S(K,587,8,880,12) 

CALL T(K,587,8,1175,12,208,22) 
CALL S(K,659,8,1047,11) 

CALL T(K,698,7,988,11,220,22) 
CALL 5(K,698,7,880,10) 

CALL T(K,698,7,831,10,247,22) 
1,220, 22) 

CALL T(K,659,6,988,11,196,22) 
CALL 5(K,659,6,988,11) 

CALL T(K,597,5,890,11,220,22) 
CALL S(K,523,5,880,11) 

CALL T(K,494,5,880,11,349,22) 
CALL 5(K,440,5,880,11) 

CALL T(K,494,5,880,11,294,22) 
CALL 5(K2/2,523,5,880,11) 

CALL 5(K2/2,587,5,880,11) 

CALL T(K,523,5,831,10,330, 22) 
CALL S(K,494,5,9831,10) 

CALL T(K,440,5,880,11,220,22) 
CALL S(K,440,5,890,11) 

CALL T(K,440,5,880,11,440,22) 
CALL 5(K,440,5,880,11) 

CALL T(K,440,5,880,11,392,22) 
CALL S(K,440,5,880,11) 

CALL T(K,440,5,880,11,196,22) 


) 
) 


2 
2 


1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
ZOZO 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
21350 
2140 
2150 
21650 
2170 
2180 
2190 
2200 
2210 
2220 


2230 


2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
23560 
2370 
2380 
2390 
2400 
2410 
2420 
24350 
2440 
2450 
2460 
2470 
2480 
2490 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


S(K,440,5,880,11) 
T(K,523,10,587,18,185,22) 
5(K,523,10,587,18) 
T({K,523,10,880,18,370,22) 
5(K,523,10,880, 18) 
T(K,523,10,784,18,330,22 
5(K,659,10,740,18) 
T(K,587,10,784,18,165,22) 
S(K,523,10,784,18) 
T(K,880, 10, 698, 18, 147,22) 
S(K,880, 10, 698,18) 
T(K,880, 10,587, 18, 294, 22) 
5(K,880, 10,659, 18) 
T(K,880, 10, 698, 18, 262, 22) 
5(K,880,10,784, 18) 
T(K,784,10,880,18,131,22) 
5(K,740,10,880,18) 
T(K,587, 10,880, 18,123,22) 
5(K,784, 10,880, 18) 
T(K,392, 10,784, 18, 247,22) 
5(K,392,10,784,18) 
T(K,440, 10,784, 18, 262, 22) 
5(K,440,10,784, 18) 
T(K,440, 10,740, 18, 294, 22) 
5(K2/2,494,10,740,18) 
5(K2/2,523,10,740,18) 
T(K,494,10,784,18,196,22) 
5(K,494,10,784,18) 
T(K,494,10,784,18,392,22) 
5(K,440, 10,523, 17) 
T(K,392,10,494,17,349,22) 
S(K,392,10,523, 16) 
T(K,392,10,587,16,175,22) 
5 (K,392,10,494,15) 
T(K,523,9,392,15,165,22) 
5(K,523,9,392,15) 
T(K,523,9,880,14,330,22) 
5(K,523,9,932,13) 
T(K,523,9,980, 13,349, 22) 
5(K,523,9,988, 12) 
T(K,659,6,1047,12,175,22) 
S(K,587,7,1047,12) 
T(K,587,6,1047,12,185,22) 
5(K,587,6,1047, 12) 
T(K,587,6,989,12,370,22) 
5(K,587,6,980,11) 
T(K,587,6,988,11,392,22) 
5(K,587,6,1109,10) 
T(K,698,4,1175,10,196,22) 
5(K,659,5,1175,10) 
T(K,659,4,1175,10,209,22) 
5(K,659,4,1175,10) 
T(K,659,4,1109,10,415,22) 
5(K,659,4,988,9) 
T(K,659,4,1109,9,440,22) 
5(K,659,4,1175,8) 
T(K,784,3,1319,8,220, 22) 
5(K,698,4,1319,8) 
T(K,698,4,1319,8,294,22) 
5(K,698,4,1047,9) 
T(K,698,4,1175,9,587,22) 
5(K,698,4,880, 10) 
T(K,698,4,597,10,523,22) 
5(K,6598,4,880,11) 


2500 
2510 
2520 
2550 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2779 
2790 
2790 
2800 
2810 
2920 
2830 
28940 
2850 
2860 
2870 
2980 
2890 
2900 
2910 
2920 
2930 


BEND 


T(K,698,4,698,12,262,22) 
5(K,698,4,587,13) 
T(K,392,8,597,14,247,22) 
5(K,392,8,494,13) 
T(K,392,8,587,13,494,22) 
5(K,392,8,784,12) 
T(K,392,9,988, 12,392, 22) 
5(K,494,7,998, 12) 
T(K,587,7,784,12,494,22) 
5(K,698,6,784,12) 
T(K,699,5,784,12,523,22) 
5(K,587,5,784,12) 
T(K,659,4,998,11,262,22) 
5(K,659,4,1047,11) 
T(K,659,4,794,11,233,22) 
5(K,659,4,784,11) 
T(K,659,4,784,11,466,22) 
5(K2/2,698,4,784,11) 
S(K2/2,740,4,784,11) 
T(K,523,5,784,11,440,22) 
5(K,523,5,784,11) 
T(K,523,5,698, 10, 220, 22) 
5(K,523,5,699,10) 
T(K,523,5,784,10,196,22) 
5(K,659,4,784,10) 
T(K,784,4,659,11,392,22) 
5(K,932,4,659,11) 
T(K,932,3,523,12,349, 22) 
5(K,932,3,523,12) 
T(K,880,5,523,12,175,22) 
5(K,880,5,523, 12) 
T(K,880,5,523, 12, 165,22) 
5(K,880,5,523, 12) 
T(K,523,7,523,12,330,22) 
S(K,523,7,523, 12) 
T(K,494,8,597, 13,294, 22) 
5(K,587,8,440, 13) 

T(K, 698,8,597, 13, 147,22) 
5(K,698,8,698, 13) 
T(K,698,8,880,13,131,22) 
5(K,698,8,9788,13) 
T(K,440,8,1047,13, 262,22) 
5(K,440,8,1319,13) 
T(K,392,8,1175,13,247,22) 


2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


5(K,392,8,1047,14) 
T(K2/2,587,9,988,14,196,22) 
T(K2/2,659,9,988,14, 196,22) 
5(K,698,9,890, 15) 
T(K,698,9,784, 15,262, 22) 
5(K,659,10,784,15) 

T(K,659, 10,880, 15,349, 22) 
5(K,587,11,880,16) 


RETURN 


K=64 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


1: K2=56 
T(K2/2,523,12,784,17,392,22) 
T(K2/2,494,12,784,17,392,22) 
S(k,440, 12, 784, 17) 

T(K,440, 12,784, 17, 549, 22) 
S(K,494,12,784,17) 
T(K2/2,494,12,698,18,392, 22) 
T(K2/2,494,12,784,19,392,22) 
S{(K2/2,494,12,698,19) 
S(K2/2,494,12,659,20) 
T(K2/2,440,13,698,20,196,22) 
T(K2/2,494,13,698,20,196,22) 
S(K,523,14,698, 20) 
T(K,523,15,659, 21,262, 20) 
S(K,523,15,659,21) 
T(K,523,15,659,21,196,18) 
S(K,523,15,659,21) 
T(K,523,15,659,21,165,18) 
S(K,523,15,659,21) 
T(K,523,15,659,21,131,18) 
S(K,523,15,659,21) 


RETURN 


K=64 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


1: K1=300 1: K2=56 
T(K2/2,523,12,784,16,392,22) 
T(K2/2,494,12,784,16,392,22) 
5(K,440,11,784,16) 
T(K,440,11,784,16,349,20) 
5(K,494,10,784,16) 
T(K2/2,494,9,698,15,392, 18) 
T(K2/2,523,9,698,15,392,16) 
S(K2/2,494,8,699,15) 

5 (K2/2,440,98,698, 15) 
T(K,494,8,699,15,196,16) 
T(K,523,7,698,15,196,16) 
T(K1,523,6,659,14,131,16) 
SOUND (-100, 44000, 30) 


RETURN 
3400 SUB S(W,A,B,C,D):: CALL SOUND(-4000,A,B,C,D):: FOR A=1 TO W :: NEXT A :: SU 


3410 SUB T(W,A,B,C,D,E,F):: CALL SOUND(-4000,A,B,C,D,E,F):: FOR A=1 TO W :: NEXT 


A 3: SUBEND 


1800 CALL HCHAR(RI,CO,A,1) 
1810 CO=CO+1 
1820 NEXT L 


5 REM FRANCOMPUTER CLUB ia 
6 REM 
1840 REM 

7 REM CORSO FOGAZZARO 174 VICENZA Ra Loi sa 
FOCRElE (RBAZY WESTCTI BRSID) 1860 CALL SOUND(750, 131.0) 

15 REM DOLNLOADED FROM LIWI.TISSIUC.IT 70. COLL SainSO 1300) 

20 REM BY LUISE STEFANO(ANNI 14) pig 
21 REM giola 


1890 CALL SOUND(750, 156,0) 
1900 CALL SOUND(250,147,0) 
1910 CALL SOUND(750, 147,0) 
1920 CALL SOUND(250, 131,0) 
1930 CALL SOUND(750,131,0) 
1940 CALL SOUND (250, 123,0) 


22 RANDOMIZE 

25 CALL CHAR(115, "3C4299A1A199423C") 
30 CALL CLEAR 

40 CALL SCREEN(9) 

5O FOR INTEST=1 TO 5 


60 READ TITOLI% 1950 CALL SOUND (750,131,0) 
70 GOSUB 1750 1960 RETURN 

80 NEXT INTEST 

90 DATA "O2IO£LECRAZY WEST££","05140VVERO..... ","0806..... IL PAZZO MONDO DEL" 


100 DATA "1312fAr WeSt" 
110 DATA "2106s BY LUISE STEFANO" 

120 FOR SUSANNA=1 TO 30 

130 READ DURATA, NOTA 

140 CALL SOUND (DURATA, NOTA, 2) 

150 NEXT SUSANNA 

160 DATA 100,523, 120,587, 180,659, 120,784, 150,784, 110,880, 190, 784, 120, 659, 210,523 
, 130,587, 110,659 

170 DATA 200,659, 180,597, 150,523, 150, 597 

180 DATA 100,527,100,587, 100, 659, 180, 784, 180, 784, 180, 880, 180, 784, 180, 659, 180,523 
, 180,597, 180, 659, 180, 659 

190 DATA 180,587, 180,587, 200,523 

200 REM ISTRUZIONI 

210 CALL CLEAR 

220 CALL SCREEN(3) 

230 TITOLI$="O211ISTRUZIONI" 

240 GOSUB 1750 

250 FOR MUSICA=1 TO 8 

260 READ DURATA, NOTA 

270 CALL SOUND (DURATA, NOTA, 2) 

280 NEXT MUSICA 

290 DATA 180,784,380,1047, 180, 1047, 180,784, 200, 784, 180, 659, 200, 659, 300,527 

300 FOR ISTR=1 TO 10 

310 READ TITOLI$ 

320 GOSUB 1750 

330 NEXT ISTR 

340 DATA "OSO3IN QUESTO MOMENTO TI TROVI","O7O3NEL PAZZO WEST. ","0903UN PISTOLER 
O SPARA CONTRO" 

350 DATA "1103DI TE DELLE LETTERE.","1303PER DIFENDERTI PREMI","1503IL TASTO DEL 
LA LETTERA" 

360 DATA "1703CHE EGLI SPARA", "1903MA ATTENZIONE..... ","2103TI AVVICINI SEMPRE P 
IU” " 

370 DATA "2303HO CONCLUSO, TOCCA A TE!!" 

380 FOR PAUSA=1 TO 400 

390 NEXT PAUSA 

400 REM PAESAGGIO 

410 CALL CLEAR 

420 CALL CHAR(41,"0000001C1C1C") 

430 CALL COLOR(2,13,1) 

440 FOR MONTAGNA=1 TO 32 

450 READ RIGA, COLONNA 

460 CALL HCHAR(RIGA, COLONNA, 41) 

470 NEXT MONTAGNA 

480 DATA 9,1,8,2,7,3,6,4,5,5,4,6,3,7,4,8,5,9,6,10,7,11,8,12,7,13,6,14,5,15,4,16, 
3,17 

490 DATA 4,18,5,19,6,20,7,21,8,22,9,23,10,24,9,25,8,26,7,27,6,28,5,29,4,30,3,31, 
4,32 

500 CALL COLOR(9,7,1) 

510 CALL CHAR(96, "00193F3F7F7F7F65") 


S20 
330 
540 
SI0 
960 
370 
380 
390 
400 
610 

ZO 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 


780 
790 


1050 REM 


CALL CHAR(97, "3D090F01010107") 800 CALL HCHAR(16,9,113) 

CALL CHAR(98, "O0EOFCFEFEFE74D0") 810 CALL HCHAR(17,9,114) 

CALL CHAR(99, "90F080808080E") 820 CALL HCHAR(16,10,115) 

CALL HCHAR(11,9,96) 830 CALL HCHAR(17,10,116) 

CALL HCHAR(12,9,97) 840 CALL CHAR(117,"0107010103031D") 
CALL HCHAR(11,10,98) 850 CALL CHAR(118, "010102040818") 
CALL HCHAR(12,10,99) 860 CALL CHAR(119, "COFOCOCOEODOC8C4") 
CALL HCEHAR(11,21,96) 870 CALL CHAR(120, "C04020101030") 
CALL HCHAR(12,21,97) 880 RI1=16 

CALL HCHAR(11,22,98) 890 C01=28 

CALL HCHAR(12,22,99) 900 RI2=17 

TITOLI$="1111CRAZY WEST" 910 C02=29 

GOSUB 1750 911 ROUND=1 

CALL COLOR(10,15,1) 912 PUNTI=0 

CALL CHAR(104, "00187CFEFFFE3C") 920 REM INIZ. 

CALL HCHAR(4,4,104) 930 CALL HCHAR(RI1,C01,117) 

CALL HCHAR(3, 12,104) 940 CALL HCHAR(RI2,C01,118) 

CALL HCHAR(4,21,104) 950 CALL HCHAR(RI1,C02,119) 

CALL HCHAR(2,28,104) 960 CALL HCHAR(RI2,C02,120) 
TITOLI$="0204PUNTI=" 970 AL$=STR$ (PUNTI) 

GOSUB 1750 980 FOR TI=1 TO LEN(AL$) 
TITOLI$="0220ROUND: " 990 CALL HCHAR(2,9+TI,ASC(SEG$(AL$,TI,2))) 
GOSUB 1750 1000 NEXT TI 

REM INIZIO GIOCO 1010 RO$=STR$ (ROUND) 


CALL CHAR(113,"0107010103050911") 
CALL CHAR(114, "01020408080C") 
CALL CHAR(115, "COFOCOCOEO0EODCD") 
CALL CHAR(116, "C06020101018") 


I NUMERI POSSANE ESSERE SPARATI 


1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1215 
1220 
1250 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
13520 
1350 
1340 
1350 
1360 
1570 
1380 
1390 
1440 
1450 
1460 


LETT=INT((65-90+1)#RND)+90 

FOR PARTE=12 TO COI 

CALL HCHAR(17,PARTE,LETT) 

CALL SOUND(10,-6,2) 

CALL HCHAR(17,PARTE, 32) 

CALL KEY(0,K,5) 

IF S=0 THEN 1130 

IF K=LETT THEN 1160 

IF PARTE=CO1 THEN 1300 

NEXT PARTE 

REM LETTERA COLPIA 

CALL CHAR(126, "SSAASSAASSAASSAA") 
CALL HCHAR(17, PARTE, 126) 

FOR T=0 TO 20 

CALL SOUND(100,-6,T) 

NEXT T 

CALL HCHAR(17, PARTE, 32) 
PUNTI=PUNTI+5 

ROUND=ROUND+1 

CALL HCHAR(RI1,C01,32,2) 

CALL HCHAR(RI2,C01,32,2) 
C01=C01-1 

C02=C02-1 

IF ROUND=14 THEN 1550 

GOTO 920 

REM MORTO 

CALL CHAR(34, "O01FICICICICICIC") 
CALL CHAR(35, "1C1C1F1F15") 

CALL CHAR(36, "0000020502008020") 
CALL CHAR(37, "2115FFFFFFO1") 
CALL HCHAR(RI1,C01,34) 

CALL HCHAR(RI2,C01,35) 

CALL HCHAR(RI1,C02,36) 

CALL HCHAR(RI2,C02,37) 

GOSUB 1840 

TITOLI$="1304SEI MORTO, TENTI ANCORA(Y/N)?" 
GOSUB 1750 

CALL KEY(0,K,5) 


1020 FOR RU=1 TO LEN(RO0$) 
1030 CALL HCHAR(2, 25+RU, ASC(SEG$(RO$,RU,1))) 
1040 NEXT RU 


I VALORI DELL LINEA 1060 POSSONO VENIRE MODIFICATI IN MODO CHE ANCHE 


IF S=0 THEN 1460 

IF K=89 THEN 1510 
CALL CLEAR 

END 

CALL 
CALL 
CALL 
CALL 
CALL 
GOTO 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


1470 
1480 
1490 
1500 
1510 
1520 
15350 
1551 

1532 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1625 
1630 
1640 
16550 
1660 
1670 
1680 
1590 
1700 
1710 
1720 
1730 
1740 


HCHAR(13,4,32,28) 

HCHAR (RI1,C01,32,2) 
HCHAR(RI2,C01,32,2) 
HCHAR (2, 10,32, 2) 
HCHAR (2, 27,32, 2) 

880 

CLEAR 

SOUND (500, 698, 0) 

SOUND (500, 659, 0) 

SOUND (500, 587,0) 

SOUND (250, 587,30) 

SOUND (500, 587, 0) 

SOUND (500, 659,0) 

CALL SOUND (500, 698,0) 

CALL SCREEN(164) 
TITOLI$="OBOBCONGRATULAZIONI " 
GOSUB 1750 

CALL CHAR(120, "FFFFFFFFFFFFFFFF") 
CALL HCHAR(6,6,120,19) 

CALL VCHAR(6,6,120,5) 

CALL HCHAR(10,6,120,19) 

CALL VCHAR(6,24,120,5) 
TITOLI$="1405SEI MOLTO ABILE CON LA" 
GOSUB 1750 
TITOLI$="1711TASTIERA" 

GOSUB 1750 

PRINT TAB(11); "CIAO!!!" 

1745 PRINT » 
1746 END 
1750 REM TITOLI 

1760 RI=VAL(SEG$(TITOLI$,1,2)) 

1770 CO=VAL (SEG$(TITOLI$,3,2)) 

1780 FOR L=5 TO LEN(TITOLI$) 

1790 A=ASC(SEGS(TITOLI$,L,1)) VEDI INIIo 


GRAFFI SC WORLD 





UN FANTASTICO PROGRAMMA CHE POTETE RICHIEDERE ALLC STESSO 
AUTORE 


STEFANO BARBIERI 
Via Laghetto 2 

39042 BRESSANONE (BZ) 
TEL 0472 22424 


GRAFIC WORLD E UN PROGRAMMA SCRITTO IN LINGUAGGIO MACCHINA 
CHE VI PERMETTE DI DISEGNARE FACILMENTE IN ALTA RISOLUZICNE. 
L'AREA DEL DISEGNO E' GRANDE 200 X 195 PUNTI. 


POTETE ACCEDERE SU OGNUNO DEI PUNTI E SCEGLIERE IL COLORE 
DEL PUNTO ( 16 COLORI A SCELTA ! ) 


IL DISEGNO PUO' ESSERE SALVATO SU DISCO E POTETE RICARICAR= 
LO QUANDO VI SERVE. 


SICCOME IL PROGRAMMA USA CIRCA 42 KBYTE DI RAM, PUO' ESSE= 
RE USATO SOLO CON L'ESPANSIONE DI MEMORIA IN AGGIUNTA. 


LA CONFIGURAZIONE RICHIESTA PUO' ESSERE 


1) TI 99/4A 
ESPANSIONE DI MEMORIA 
UNITA' DI MEMORIA A DISCHI 
MODULO MINIMEMORY 


2) TI 99/4A 
ESPANSIONE DI MEMORIA 


UNITA' DI MEMORIA A DISCHI 
MODULO EDITOR ASSEMBLER 


AL PROGRAMMA SONC ALLEGATE 9 PAGINE DI SPIEGAZIONI. 
BARBIERI L'AUTORE CI HA LAVORATO SOPRA BEN 4 MESI E 
IL RISULTATO E' DECISAMENTE NOTEVOLE. COME DETTO S0= 
PRA CHI LO DESIDERA PRENDA ACCORDI DIRETTAMENTE, 


100 
101 
102 
105 
104 
105 
106 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
290 
290 
300 
310 
320 
330 
340 
3930 
360 
370 
390 
390 
400 
410 
420 
450 
440 
450 
460 
470 
480 
490 
300 
310 
9320 
930 


REM SCHEDARIO CLIENTELA E OPERAZIONI VARIE 
REM 

REM {IN QUESTO CASO FIGURA LA GESTIONE DI UNO 
REM STUDIO DENTISTICO CON RELATIVI LAVORI E 
REM INDIRIZZI DELLA CLIENTELA E IMPORTI DELLE 
REM OPERAZIONI ESEGUITE 

REM ===============s33=3>z osso 
CALL CLEAR 

L$="---------------------------- 1) 

OPTION BASE i 

DIM A$(55) ,B$(55),C$(55),E$(55),F$(55),6$(55),H$(S5),M$(55),N$(55) 
GOTO 520 

CALL KEY(0,A,B) 

IF B=0 THEN 160 

A=A-48 

IF A<O THEN 160 

RETURN 

CALL CLEAR 

IF S<>1 THEN 320 

OPEN £1:"CS1", INTERNAL, OUTPUT,FIXED 128 

PRINT ::"ATTENDERE, STO" REGISTRANDO":: 

PRINT £1:K$,C 

FOR X=1 TO C 

PRINT £1:A$(X),B$(X),C$(X),E$(X),F$(X),G$(X),H$(X),M$(X),N$(X) 
NEXT X 

X=X-1 

CLOSE £1 

CALL CLEAR 

RETURN 

CALL CLEAR 

IF S=1 THEN 480 

OPEN £1:"CS1", INTERNAL, INPUT ,FIXED 128 

INPUT £1:K$,C 

PRINT ::L$::"SCHEDARIO : "sk$: "INDIRIZZI INSERITI :"sC::L1$:" ATTENDERE PREGO 


FOR X=1 TOC 

INPUT £1:A$(X),B$(X),C$(X) ,E$(X) ,F$(X) ,G$(X),H$(X),M$(X) ,N$(X) 
NEXT X 

X=X-1 

CLOSE £1 

CALL CLEAR 

S=1 

PRINT "VUOI CONTINUARE (1)":"O MENU" (2)":: 

INPUT W 

IF 2=W THEN 520 

RETURN 

CALL CLEAR 

PRINT L$:" SCHEDARIO CLIENTI ":L$:::: 

RETURN 

GOSUR 490 

PRINT "O FINE LAVORO (NEL REG.) "::"1 CREAZIONE SCHEDARIO 55"::"2 AGGIORNA 


MENTO SCHEDARIO": 


340 


PRINT " (RICHIAMO DAL REG.)":::::"(SE VUOI RITORN. INDIETRO DI": "UNA DOMAN 


DA PREMI IL PUNTO)" 


JI0 
360 
970 
3580 
390 
600 
6109 
620 
630 


GOSUB 160 

IF A>2 THEN 550 

IF A=0 THEN 2160 

IF Z=1 THEN 600 

IF A=1 THEN 700 

IF A=1 THEN 550 

2=1 

GOSUB 490 

PRINT K$::"O @UADRO PRINCIPALE"::"1 INSERIMENTO CLIENTI"::"2 VARIAZIONE C 


LIENTI":: 


640 
650 


PRINT "353 VISIONE CLIENTI +"::1::: 
GOSUB 160 


1000 PRINT L$::A$(X):B$(X):C$(X)::"CF 


"3E$(X)::"TEL.:"&F$(X)s: "DATA :"&G$(X)t: 


1010 PRINT "AREA :":"SUP.= "iH$(X):"INF.= "iM$(X): "LIRE "sN$(X)::L$:"VA BENE ? ( 


S/N)" 


1020 PRINT "LUNG.FILE MAX.100 ="{LEN{A$(X)&B$(X)&C$(X)&E$(X)&F$(X)&G$(X)&H$(X)&M 


$(X)&N$(X)) 
10350 GOSUB 160 


1040 IF A<>35 THEN 750 
1045 IF X=55 THEN 100 
1050 PRINT L$: "ALTRI INDIRIZZI ? (S/N)" 
1060 GOSUB 160 
1070 IF Ac>35 THEN 1100 
1080 X=X+1 
N 1090 GOTO 740 
1100 C=X 
660 IF A=0 THEN 520 1110 S=1 
670 IF A>3 THEN 650 1120 T=1 
680 CALL CLEAR 1130 Z=1 
590 ON A GOTO 1160, 1200,1760 1140 GOTO 520 
700 REM *#*PROC.CREAZIONE** 1150 REM »*#PROC. INSER.** 
710 CALL CLEAR 1160 GOSUB 330 
720 INPUT "NOME SCHEDARIO ?":K$ 1170 T=1 
730 X=1 1180 GOTO 1080 
755 IF X=55 THEN 100 1190 REM *#PROC.VARIAZ.# 
740 PRINT L$:: "SCHEDA N. "i 1200 GOSUB 330 
750 PRINT L$: "NOME ":: 1210 CALL CLEAR 
760 INPUT ASCO 1220 INPUT "CODICE DA VARIARE ? ":Y 
770 PRINT L$: "VIA ":: 1230 IF Ye=0 THEN 1220 
780 INPUT B$(X) 1240 IF Y>C THEN 1220 
790 IF B$(X)="." THEN 750 1250 PRINT :: "SCHEDA "sY:L$ 
800 PRINT L$:"C.A.P. PAESE":: 1260 PRINT 1: "NOME :"::A$(Y)::"VARIO ? (S/N) ":: 
810 INPUT C$(X) 1270 GOSUB 160 
820 IF C$(X)="." THEN 770 
830 PRINT L$: "CODICE FISCALE 16 caratteri":: 
840 INPUT E$(X) 
850 IF E$(X)="." THEN 800 
860 PRINT L$: "TELEFONO": 
870 INPUT F$(X) 
880 IF F$(X)="." THEN 830 
890 PRINT L$: "DATA INIZIO ":: 
900 INPUT G$(X) 
910 IF G$(X)="." THEN 860 
920 PRINT L$: "AREA DI INTERESSE":: 
930 INPUT "SUP.= ":H$(X) 
940 IF H$(X)="." THEN 890 
950 INPUT "INF.= ":M$(X) 1280 IF A=35 THEN 1540 
960 IF M$(X)="." THEN 950° 1290 PRINT ::"VIA :"::B$(Y):: "VARIO ? (S/N) ":: 
970 INPUT "LIRE ":N$(X) 1300 GOSUB 160 
980 IF N$(X)="." THEN 950 1310 IF A=35 THEN 1560 
990 CALL CLEAR 1320 PRINT ::"C.A.P. PAESE:"::C$(Y):: "VARIO ? (S/N)":: 


1535 

1540 
1350 
13560 
13570 
1380 
1390 
1400 
1410 
1420 
1450 
1440 
1450 
14650 
1470 
1480 


GOSUB 160 

IF A=35 THEN 1580 

PRINT :: "CODICE FISCALE :"::E$(Y):: "VARIO ? (S/N) ":: 
GOSUB 160 

IF A=35 THEN 164600 

PRINT :: "TELEFONO :"::F$(Y):: "VARIO ? (S/N)":: 

GOSUB 160 

IF A=35 THEN 1620 

PRINT ::"DATA :"::6$(Y):: "VARIO ? 
GOSUB 160 

IF A=35 THEN 1640 

PRINT ::"SUP.= "::H$(Y)s: "VARIO ? (S/N) ":: 
GOSUB 1640 

IF A=35 THEN 1660 

PRINT ::"INF.= ":1:M$(Y):: "VARIO ? (S/N)":: 
GOSUB 160 


(S/N) "1: 


1490 IF A=35 THEN 


1680 


1500 PRINT ::"LIRE :"::N$(Y) i: "VARIO ? (S/N) ":: 


1510 GOSUB 160 
1520 IF A=35 THEN 
1530 GOTO 1710 
1540 INPUT "NUOVO 
1550 GOTO 1290 
1560 INPUT "NUOVA 
1570 GOTO 1320 
1580 INPUT "NUOVO 
1590 GOTO 1350 
1600 INPUT "NUOVO 
1610 GOTO 1380 
1620 INPUT "NUOVO 
1650 GOTO 1410 
1640 INPUT "NUOVA 
1650 GOTO 1440 
1560 INPUT "NUOVO 
1670 GOTO 1470 
1680 INPUT "NUOVO 
1590 GOTO 1500 
1700 INPUT "NUOVE 


1700 


NOME 


VIA 


C.A.P. 


P'IA$(Y) 


P":B$(Y) 


PAESE ?":C$(Y) 


COD.FISC. ?":E$(Y) 


TELEFONO ?":F$(Y) 


DATA 


SUP. 


INF. 


LIRE 


P"16$(Y) 


P":H$(Y) 


P"aM$(Y) 


9P":N$(Y) 


1710 PRINT ::L$: "ALTRI COD.DA VARIARE ? (S/N) " 


1720 GOSUB 160 
17350 IF A=35 THEN 
1740 T=1 

1750 GOTO 520 


1210 


1760 REM **PROC.VIS.** 


1770 GOSUB 330 
1780 CALL CLEAR 


1790 PRINT L$:" VISUALIZZAZIONE INDIRIZZI":L$:::: 
1800 PRINT "O QUADRO PRINCIPALE":: 


1810 PRINT "1 RICERCA PER NOME"::"2 


1820 GOSUB 160 


18350 IF A>2 THEN 1820 
1840 IF A=0 THEN 520 


1850 ON A GOTO 1860, 20350 


1860 CALL CLEAR 


1970 INPUT "NOME DA CERCARE ?_ ":Y$ 


1880 FOR Y=1 TO C 


1890 IF A$(Y)<>Y$ THEN 1920 


1900 GOSUB 2070 
1910 GOTO 1860 
1920 NEXT Y 

1930 GOTO 1780 
1940 CALL CLEAR 
20350 FOR Y=1 TO C 
2040 GOSUB 2070 
2050 NEXT Y 

2060 GOSUB 1780 
2070 CALL CLEAR 


2080 PRINT "CODICE N."35Y:L$:: 
2090 PRINT A$(Y):B$(Y):C$(Y)::"C.F. 


Ar": 


VISIONE TOTALE ":11:::: 


"sE$(Y)::"TEL.:"&F$(Y):: "DATA 


2100 PRINT "SUP.= "sH$(Y):"INF.="s3M$(Y): "LIRE "sN$(Y) 
2110 PRINT :L$: "PREMI 0 PER USCIRE" 


2120 PRINT "UN TASTO PER CONTINUARE" 


2150 GOSUB 160 


2140 IF A=0 THEN 1760 


2150 RETURN 


2160 IF T=0 THEN 2180 


2170 GOSUB 210 


2180 PRINT "VUOI CONTINUARE O FINIRE":: 


2190 INPUT "CO/FI 


":W$ 


2200 IF W$="FI" THEN 2220 


2210 GOTO 110 
2220 END 


:"%G$ (Y):: "ARE 


1 REM PROGRAMMA PER LA GESTIONE DI UNA ELEZIONE 
2 REM FRANCOMPUTER CLUB VICENZA ( BY ARDITO 


R 


C 
G 


SUI AaCI 


10 

20 

3O 

40 

50 

60 

63 

64 

70 

75 

80 

85 

90 

95 

100 
105 
110 
115 
120 
125 
150 
155 
140 
145 
150 
155 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
390 
390 
400 
402 
405 
406 
410 
412 
415 


GOSU 


EM 
25000 
ALL CLEAR 

OSUB 11000 


REM PROGRAMMA PER L’accetazione dei dati 


CALL CLEAR 
REM 
PRINT "===s=======ss=osssssosssnnnn=" 
PRINT "" 
PRINT """AGGIORNAMENTO"”" 
PRINT "" 
PRINT "" 
PRINT " 
PRINT 
PRINT " 2_MSI...." 
PRINT 
PRINT 3__DP....." 
PRINT 
PRINT " 
PRINT 
PRINT " 
PRINT 
PRINT " 
PRINT 
PRINT " 
PRINT 
PRINT " 
PRINT 
PRINT " 
PRINT 
PRINT 
INPUT 
REM 
REM 
CALL CLEAR 


ioPilat 


3__DP..cs" 

8 Daiano 
5_PSDI..." 
6__PRI...." 
7__SCHEDE BIANCHE " 
B__SCHEDE NULLE " 


"Partito da aggiornare": 
PAR 


PRINT ""AGGIORNAMENTO"" 
PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT "Quale sezione "i 

INPUT SEZ 
CALL CLEAR 

IF PAR=1 THEN 
IF PAR=2 THEN 
IF PAR=3 THEN 
IF PAR=4 THEN 
IF PAR=5 THEN 
IF PAR=6 THEN 
IF PAR=7 THEN 
IF PAR=8 THEN 
REM 

PRINT "Voti al partito pci ": 
PAR$="1" 

INPUT VOTI 

GOTO 500 

PRINT "Voti al partito msi ": 
PAR$="2" 

INPUT VOTI 


400 
410 
420 
4350 
440 
450 
460 
470 


) 


416 
420 
422 
425 
426 
430 
432 
435 
436 
440 
442 
445 
446 
450 
452 
455 
456 
450 
465 
466 


476 
480 
490 
300 


GOTO 500 
PRINT "Voti 
PAR$="3" 
INPUT VOTI 
GOTO 500 
PRINT "Voti 
PAR$="4" 
INPUT VOTI 
GOTO 500 
PRINT "Voti 
PARS="5" 
INPUT VOTI 
GOTO 500 
PRINT "Voti 
PARS="6" 
INPUT VOTI 
GOTO 500 
PRINT 
INPUT VOTI 
GOTO 500 


"Schede Bianche "i; 


al partito dp": 


al partito dc "i 


al partito psdi 


al partito pri 


PRINT "Schede nulle "i 


INPUT VOTI 
GOTO 500 
REM 

REM 

REM 


510 ON SEZ GOSUB 9000, 9010, 9020, 9030, 7040, 9050, 9060, F070, 9080, 9090, 7100, 7110, 912 
0,9130,9140, 9150 

700 PRINT "===================z3z===zz=" 
705 GOTO 11000 

710 PRINT ""AGGIORNAMENTO"" 
720 PRINT 

7350 PRINT 

740 PRINT 

750 PRINT 

760 PRINT " Vuoi vedere un quadro " 
770 PRINT " Generale delle sezioni "i 
780 INPUT S$ 

790 IF S$="S" THEN 810 ELSE 10 

910 CALL CLEAR 

820 PRINT "==================3=e=====n=" 
8350 PRINT 

840 PRINT 

850 PRINT 

860 PRINT 

870 PRINT 

880 PRINT "QUALE Sezione (1/16) ": 

890 INPUT SEZ 

900 CALL CLEAR 

910 PRINT "=========================nà" 
920 PRINT 

9350 PRINT 

940 PRINT "Sezione num. ”"; 

941 PRINT SEZ 

942 PRINT 

960 ON SEZ GOSUB 6000, 6010, 6020, 6030, 6040, 6050, 6060, 6070, 6080, 6090, 6100, 6110,612 
0,6130,6140, 6150 


965 GOTO 1160 1163 PRINT 

970 IL$="2" 1170 PRINT" MSI_____ #5 

975 GOTO 1150 1172 PRINT MSI 

980 IL$="3" 1173 PRINT 

985 GOTO 1150 1180 PRINT " DE: cu ni 

990 IL$="4" 1182 PRINT DP 

995 GOTO 1150 1183 PRINT 

1000 IL$="5" 1190 PRINT " 13 SAONA "i 

1005 GOTO 1150 1192 PRINT DC 

1010 IL$="6" 1193 PRINT 

1015 GOTO 1150 1200 PRINT " PSDI_____ “ 

1020 IL$="7" 1202 PRINT PSDI 

1025 GOTO 1150 1203 PRINT 

1030 IL$="8" 1210 PRINT " PRI______ "i 

1035 GOTO 1150 1212 PRINT PRI 

1040 IL$="9" 1213 PRINT 

1045 GOTO 1150 1222 PRINT "__Schede bianche__"; 
1050 IL$="10" 1223 PRINT SB 

1055 GOTO 1150 1225 PRINT 

1060 IL$="11" 1233 PRINT 

1065 GOTO 1150 1235 PRINT "__Schede nulle____"5 
1070 IL$="12" 1236 PRINT SN 

1075 GOTO 1150 1237 PRINT 

1080 IL$="13" 1242 PRINT "Totale Voti..." 
1085 GOTO 1150 1243 PRINT PCI+MSI+DP+DC+PSDI+PRI+SB+SN 
1090 IL$="14" 1245 REM 

1095 GOTO 1150 1340 PRINT 

1100 IL$="15" 1341 PRINT 

1105 GOTO 1150 1342 PRINT "PREMI ENTER PER FINIRE "i 
1110 IL$="16" 1343 INPUT 0$ 

1115 GOTO 1150 1344 GOTO 11000 

1150 FIL$="V"&IL$ 1345 END 

1160 PRINT "PCI si 2000 CALL CLEAR 


1162 PRINT PCI 2010 REM 


2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2150 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 


2230 


2240 
2250 
2260 
2270 
2280 
2290 
2300 
2510 
2320 
2330 
2340 


2350 


23560 
2370 
23580 
2390 
2400 
2410 
2420 
2450 
2440 
2450 
2460 
2470 
2490 
2490 
2500 
2510 
2520 
2530 
2550 
2560 
2570 
2580 
2590 
2600 
2620 
2630 
2640 
6000 
6001 


REM 

REM 

PRINT " PCI 
PRINT " 
GOSUB 
GOSUB 20000 
GOSUB 24000 
GOSUB 6010 
GOSUB 20000 
GOSUB 24000 
GOSUB 6020 
GOSUB 20000 
GOSUB 24000 
GOSUB 6030 
GOSUB 20000 
GOSUB 24000 
GOSUB 65040 
GOSUB 20000 
GOSUB 24000 
GOSUB 65050 
GOSUB 20000 
GOSUB 24000 
GOSUB 65060 
GOSUB 20000 
GOSUB 24000 
GOSUB 65070 
GOSUB 20000 
GOSUB 24000 
GOSUB 6080 
GOSUB 20000 
GOSUB 24000 
GOSUB 5090 
GOSUB 20000 
GOSUB 24000 
GOSUB 6100 
GOSUB 20000 
GOSUB 24000 
GOSUB 6110 
GOSUR 20000 
GOSUB 24000 
GOSUB 6120 
GOSUB 20000 
GOSUB 24000 
GOSUB 65130 
GOSUB 20000 
GOSUB 24000 
GOSUB 6140 
GOSUB 20000 
GOSUB 24000 
GOSUB 6150 
GOSUB 20000 
GOSUB 24000 
PRINT " 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 0$ 
GOTO 11000 
END 
PCI=SUNO (1) 
MSI=SUNO (2) 


6002 
6003 
6004 
6005 
6006 
6007 
6008 
6010 
6011 
6012 
6013 
6014 
5015 
6016 
6017 
6018 
65020 
6021 
6022 
6023 
6024 
6025 
6026 
6027 
6028 
6030 
6031 


DP=SUNO (3) 
DC=SUNO (4) 
PSDI=SUNO (5) 
PRI=SUNO (6) 
SB=SUNO (7) 
SN=SUNO (8) 
RETURN 
PCI=SDUE (1) 
MSI=SDUE (2) 
DP=SDUE (3) 
DC=SDUE (4) 
PSDI=SDUE (5) 
PRI=SDUE (6) 
SB=SDUE (7) 
SN=SDUE (8) 
RETURN 
PCI=STRE(1) 
MSI=STRE (2) 
DP=STRE (3) 
DC=STRE (4) 
PSDI=STRE (5) 
PRI=STRE (6) 
SB=STRE (7) 
SN=STRE (8) 
RETURN 
PCI=SQUA (1) 
MSI=SQUA (2) 
DP=SQUA (3) 
DC=SQUA (4) 
PSDI=SQUA (5) 
PRI=SQUA (6) 
SB=SQUA (7) 
SN=SQUA (8) 
RETURN 
PCI=SCIN(1) 
MSI=SCIN(2) 
DP=SCIN{3) 


3 DC=SCIN(4) 


PSDI=SCIN(5) 
PRI=SCIN(6) 
SB=SCIN(7) 


"TOTALE SCHEDE BIANCHE ";TSB 
"TOTALE SCHEDE NULLE 
"continuare "i 


"3 TSN 


6047 
6048 
6050 
6051 
6052 
6053 
6054 
6055 
6056 
6057 
6058 
6060 
6061 
6062 
6063 
6064 
6065 
6066 
6067 
6068 
6070 
6071 
6072 
6073 
5074 
6075 
6076 
6077 
6078 
5080 
6081 
6082 
6083 
65084 
6085 
6086 
6087 
6089 
6090 
5091 
6092 
6093 
6094 
6095 
6096 
6097 
6098 
6100 
6101 
6102 


SN=SCIN(8) 
RETURN 
PCI=SSEI(1) 
MSI=SSEI (2) 
DP=SSEI (3) 
DC=SSEI (4) 
PSDI=SSEI (5) 
PRI=SSEI (6) 
SB=SSEI (7) 
SN=SSEI (8) 
RETURN 
PCI=SSET (1) 
MSI=SSET (2) 
DP=SSET (3) 
DC=SSET (4) 
PSDI=SSET (5) 
PRI=SSET (6) 
SB=SSET (7) 
SN=SSET (8) 
RETURN 
PCI=SOTT(1) 
MSI=SOTT (2) 
DP=SOTT (3) 
DC=SOTT (4) 
PSDI=SOTT (5) 
PRI=SOTT (6) 
SB=SOTT (7) 
SN=SOTT (8) 
RETURN 
PCI=SNOV{1) 
MSI=SNOV (2) 
DP=SNOV (3) 
DC=SNOV (4) 
PSDI=SNOV (5) 
PRI=SNOV (6) 
SB=SNOV (7) 
SN=SNOV (8) 
RETURN 
PCI=SDIE (1) 
MSI=SDIE (2) 
DP=SDIE (3) 
DU=SDIE (4) 
PSDI=SDIE (5) 
PRI=SDIE (6) 
SB=SDIE (7) 
SN=SDIE (8) 
RETURN 
PCI=SUND (1) 
MSI=SUND (2) 
DP=SUND (3) 


61035 DC=SUND (4) 
6104 PSDI=SUND(5) 
6105 PRI=SUND(6) 
6106 SB=SUND (7) 
6107 SN=SUND(8) 
6108 RETURN 

6110 PCI=SDOD(1) 
6111 MSI=SDOD(2) 
6112 DP=SDOD(3) 
6113 DC=SDOD(4) 
6114 PSDI=SDOD(5) 
6115 PRI=SDOD (6) 
6116 SB=SD0D(7) 
6117 SN=SDOD(8) 
6118 RETURN 

6120 PCI=STRD(1) 
6121 MSI=STRD(2) 
6122 DP=STRD(3) 
6123 DC=STRD(4) 
6124 PSDI=STRD(5) 
6125 PRI=STRD(6) 
6126 SB=STRD(7) 
6127 SN=STRD(8) 
6128 RETURN 

6130 PCI=SOUT(1) 
6131 MSI=SOUT (2) 
61352 DP=SQUT (3) 
61353 DC=SQUT (4) 
6134 PSDI=SQUT (5) 
61355 PRI=SOQUT (6) 
6136 SB=SOUT (7) 
6137 SN=S@QUT (8) 
6138 RETURN 

6140 PCI=SQUI (1) 
6141 MSI=SQUI (2) 
6142 DP=SQUI (3) 
61435 DC=SQUI (4) 
6144 PSDI=SQUI (5) 
6145 PRI=SOQUI (6) 
6146 SB=SQUI (7) 
6147 SN=SQUI (8) 
6148 RETURN 

6150 PCI=SSED(1) 
6151 MSI=SSED(2) 
6152 DP=SSED(3) 
6153 DC=SSED(4) 
6154 PSDI=SSED(5) 
6155 PRI=SSED (6) 
6156 SB=SSED(7) 
6157 SN=SSED(8) 
6158 RETURN 

9000 


9005 RETURN 


SUNO (PAR) =VOTI 


11010 
11020 
11021 
11022 
110350 
11040 
11050 
11060 
11070 
11080 
11090 
11100 
11110 
11120 
11150 
11160 
11170 
11180 
11190 
11200 
11210 
11220 
11230 
11240 
11250 
11260 
11270 
11280 
11285 
11290 
20000 
20010 
24000 
24010 
24020 
24030 
24040 
24050 
24060 
24070 
24080 
25000 
25140 
25141 
25142 
25145 
25144 
25145 


25146 


25147 


25148 
25149 
25150 
25200 
25210 
25220 


29000 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


1__AGGIORNAMENTO 
2__PARZIALE VOTI 
3__TOTALE VOTI 


4__FINE 


* SCEGLI :"; 


INPUT SCE 


IF SCE=1 THEN 
IF SCE=2 THEN 
IF SCE=3 THEN 
IF SCE=4 THEN 


GOTO 1 
RETURN 
END 


10 
810 
2000 
11290 
1000 


9010 
9015 
9020 
9025 
FOTO 
9035 
9040 
9045 
9050 
9055 
9060 
9065 
9070 
9075 
9080 
9085 
9090 
9095 
9100 
9105 
dio 
9115 
9120 
9125 
9130 
9135 
9140 
9145 
9150 
9155 


SDUE (PAR) =VOTI 
RETURN 
STRE (PAR) =VOTI 
RETURN 
SQUA (PAR) =VOTI 
RETURN 
SCIN{(PAR)=VOTI 
RETURN 
SSEI (PAR)=VOTI 
RETURN 
SSET (PAR) =VOTI 
RETURN 
SOTT (PAR)=VOTI 
RETURN 
SNOV (PAR) =VOTI 
RETURN 
SDIE (PAR) =VOTI 
RETURN 
SUND (PAR) =VOTI 
RETURN 
SDOD (PAR) =VOTI 
RETURN 
STRD (PAR) =VOTI 
RETURN 
SG@UT (PAR) =VOTI 
RETURN . 
SQUI (PAR) =VOTI 
RETURN 
SSED (PAR) =VOTI 
RETURN 


11000 CALL CLEAR 


PRINT PCI:5TAB(6);MSI:TAB(11)iDP:TAB(15);DCs TAB(20) PSDI; TAB(25) sPRI 


RETURN 


TPC=TPC+PCI 
TMS=TMS+MSI 
TDP=TDP+DP 
TDC=TDC+DC 
TPS=TPS+PSDI 
TPR=TPR+PRI 
TSB=TSB+SB 


TSN=T5 
RETURN 
CALL C 
PRINT 
PRINT 
FOR WA 
NEXT W 
CALL C 
PRINT 


PRINT 


PRINT 


PRINT 
PRINT 
INPUT 
FOR I= 
NEXT I 
RETURN 
CALL C 


N+SN 


LEAR 
ti UN PROGRAMMA" 
ori" FRANCOMPUTER"::::1:: 
IT=0 
AIT 
LEAR 
"0000000000000000000000000000000 
000" 
"000 
000" 
"000 ELEZIONI 000000 
000" DOLMLOADED FROM HEHE, TISSIUC.IT 
"0000000000000000000000000000 " 
3:r: "ENTER" 
AA$ 
1 TO 2500 


AGGIORNAMENTO 000000 


LEAR 


000000 


000000 


000000 


1 REM MESSAGGIO CON CARATTERI 

2 REM 

3 REM SCORREVOLI GIGANTI 

4 REM 

5 REM BY FRANCOMPUTER CLUB VICENZA 
6 REM 

7 REM ==========3===3zooosssnnnnnn= 
10 CALL CLEAR 


50 CALL SCREEN(5) 

100 DATA 000103070E1C3830, 0080C0E070381C0C, 30303F3F 303030, OCOCFCFCOCOCOC, 007F7F6 
06060607F, 00E0F038183870E0 

110 DATA 7F606060607F7F, E070381838F0E0, 000F1F3870606060, 00E0F03818, 60606070381F0 
F, 0000001838F0E0 

120 DATA 007F7F6060606060, 00C0E0F078381818, 60606060607F7F, 18183878F0EOCO, 007F7F6 
06060607F, 00F8F80000000080 

130 DATA 7F606060606060, 80, 8000000000F 8F8, 0078781838F0E0, 006060606060607F, 001818 
181818198F8 

140 DATA F8181818181818,0003030303030303, 03030303030303, 006070787C6F6763, 0018387 
8F8D89818, 60606060606060 

150 DATA 18181818181818,006070787C6E5763,0018181818181898,616506060606060, D8F8783 
8181818, 0060506060606060 

160 DATA 60606060607F7F, 0000000000F 8F8, 007F7F0303030303, 0018181818181818, 0060607 
03038181C, 000C0C1C18383070 

170 DATA 0C0E0707030303, 0E0COC0808080, 007F7F0000000003, 00F8F8181838F0C0, 0F3C706 
0607F7F, 0003070E1C1C0F03 

180 DATA 00FOFBICOC0000C0, 0000181C0E0703, FOZCOEOE1CF8FO, 00606070381C0F07, 0018183 
870E0C080, 070F1F3C787060 

190 DATA 80C0E070381818, 0060606070783C1F, 001818183878F0E0, 0F070303030303, COB0, 00 
00 

200 DATA CO, 1818D87870E0D8, 00F8F8 

210 DATA 96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,102 
,116,112, 113,114, 115 

220 DATA 104,105,106,117,118,119,114,120,121,155,122,155,121,155,122,155,155,155 
s 155, 155, 131, 155, 132, 133 

230 DATA 123,124,125,126,127,128,129,130,104,109,106,111,100,101,114,156,104,109 
,106, 157,100, 101,114, 150 

240 DATA 143,144, 145, 146,134, 159, 122, 155, 131,135,106,111,136,137,138,139,136,155 
, 155,155, 147,148, 149, 150 

250 DATA 151,152,153,154,140,141,142, 133, 155,155, 155,155 





260 REM 490 COLS=16 

270 REM DEFIN.CARATTERI 500 REM ROUTINE DI STAMPA 

280 FOR I=l TO 635 510 FOR I=9 TO 16 

290 READ X$ 520 CALL COLOR(I,COLC,COLS) 

300 CALL CHAR(95+I,X$) 530 NEXT I 

310 NEXT I 540 FOR C=1 TO LEN(MSG$) 

320 REM COSTRUZ.MATRICE 550 CODE=ASC(SEG$(MSG$,C,1)) 

330 OPTION BASE 1 560 PTR=CODE-64 

340 RESTORE 210 570 IF PTR>=1 THEN 590 

350 DIM MX(27,4) 580 PTR=PTR+59 

360 FOR A=1 TO 27 590 CALL HCHAR CROW, COL, MX (PTR,1)) 
370 FOR V=1 T0 4 600 CALL HCHAR(ROW,COL+1,MX(PTR,2)) 
380 READ X 610 CALL HCHAR(ROW+1,COL,MX(PTR,3)) 
390 LET MX(A,V)=X 620 CALL HCHAR(ROW+1,COL+1,MX(PTR,4)) 
400 NEXT V 621 CALL SOUND(100,550,0) 

4,0 NEXT A 630 IF COL<28 THEN 670 

420 REM ROUTINE ENTRY:MSG$ ROW, COL, COLC, COLS 


430 REM VALORI DI DEFAULT: 
440 INPUT "MESSAGGIO ? ":MS6$ 550 ROW=ROW+2 
450 CALL CLEAR 6560 GOTO 680 
460 ROW=1 670 COL=COL+2 


470 COL=3 680 NEXT C 
ladini 590 GOTO 450 


640 COL=3 


10 REM FRANCOMPUTER CLUB TEXAS VICENZA 


££ 
100 CALL CLEAR 
110 PRINT " DICHIARAZIONE IVA ===s=ss=s=seszoznz" 111 
120 PRINT " copyright 1983":: 
1350 PRINT " FRANCOMPUTER"::::: 
140 PRINT " VERSAMENTI ENTRO IL"::" 5 maggio (I trimestre)":" S luglio (ii tri 
mestre)" 
150 PRINT " 5 novembre(iii trimestre)":" 5 marzo (iv trim.e saldo)"::::: 
160 INPUT " PREMI ENTER":W$ 
170 CALL CLEAR 
180 PRINT "CORRISPETTIVI COMPLESSIVI":: 
190 INPUT "L.? ":TC 
200 PRINT ::: 
210 PRINT " ACQUISTI COMPLESSIVI || «« -------------------- Stigig (compres 


a iva)"::: 


220 
2350 
240 
250 
260 
270 
280 
290 
300 
310 
320 
3350 
340 
350 
360 
370 
380 
390 
400 
410 
420 
4350 


450 
460 
470 
480 
490 
300 
310 
320 
350 
3940 
390 
360 
370 
3580 
3590 
600 
610 
620 
630 
640 
650 
660 


INPUT "MERCE 2%? ":M2 
PRINT 

INPUT "MERCE 8%? ":M8 
PRINT 

INPUT "MERCE 10%? ":M10 
PRINT 

INPUT "MERCE 18%? ":M18 
PRINT 

INPUT "MERCE 39%? ":M38 
TA=M2+M8+M10+M18+M38 
PRINT" === --------- ":: "TOTALE L."sTA 
PRINT ::: 

INPUT "VA BENE (S/N) ":P$ 

IF P$="S" THEN 370 ELSE 200 
REM »*CALC.VENTILAZIONE* 
P2X=(M2/TA*100) 
PBX=(M8/TA*100) 
PI1OX={(M10/TA*100) 
P18X=(M18/TA*100) 
P38X=(M38/TA*100) 

REM **ARROTONDAMENTO** 

DEF PS=INT(P8X#100+0.5)/100 
DEF P2=INT(P2Xx100+0,5)/100 
DEF PI1O=INT(P10X#100+0,.5)/100 
DEF P1B8=INT(P18X#100+0.5)/100 
DEF P38=INT(P38X#100+0.5)/100 
V2X=(TC/100#P2) 
V8X={(TC/100#*P8) 
VI10X=(TC/100#P10) 
V18X=(TC/100*P18) 
V38X=(TC/100*P38) 

DEF V2=INT(V2X+0.5) 

DEF VB=INT(V8X+0.5) 

DEF VIO=INT(V10X+0.5) 

DEF VIS8=INT(V18X+0.5) 

DEF V38=INT (V38X+0.5) 
V2Y=V2/102*100 
V8Y=V8/108*100 
VIOY=V10/110*100 
V18Y=V18/118*100 
V38Y=V39/138*100 

DEF V2Z=INT(V2Y+0.5) 

DEF VSZ=INT(V8Y+0.5) 

DEF VIOZ=INT(VIOY+0.5) 

DEF Vi18Z=INT(V18Y+0.5) 


670 DEF V38Z=INT(V38Y+0.5) 

680 I12X=V2Z*0.02 

690 IBX=V87+*0.08 

700 I10X=VI10Z#0,.10 

710 I18X=V187+#0. 18 

720 I38X=V3897+0, 38 

7350 DEF I2=INT(I2X+0.5) 

740 DEF IS=INT(I8X+0.5) 

750 DEF I10=INT(I10X+0.5) 

760 DEF I18=INT(I118X+0.5) 

770 DEF I358=INT(I38X+0.5) 

780 CALL CLEAR 

790 PRINT " VENTILAZIONE © @©@" 0 @>©@*©*=«-k]k*k©—-ì)%)ìa—2—-------- 4 

800 TOTV=V2+V8+V10+V18+V38 

810 TOTZ=V2Z7+V8Z+V107+V187+V397 

820 TOTI=12+18+110+118+1358 

830 PRINT :"-corrispettivi-------------- so 

840 PRINT "2%"3sTAB(7)3V2:"8%"53TAB(7):V8: "10%" TAB(7)sVi0:"18%":TAB(7)5V18: "39%": 
TAR (7) :V38 

850 PRINT 1"---------------------------- ":TAB(7)5TOTV:::::s:: 

960 INPUT "PROCEDO? (S/N) ":P$ 

870 IF P$="S" THEN 880 ELSE 170 

880 CALL CLEAR 

890 PRINT "------------------- iva------ PUBLE 

900 PRINT "2%"5sTAB(5);V2Z;TAB(18);12:"8%": TAB(5);V8Z;TAB(18)sI8: "10%": TAB(5);VIO 
Z3TAB(18);I10 

910 PRINT "18%": TAB (5) ;V18Z;TAB(18) 118: "38%":TAB(5):V387:TAB(18);I39 
920 PRINT 1"---------------------------- ":TAB(5)3 TOTZi TAB(18)s TOTI 
930 TOTP=P2+P8+P10+P18+F38 

940 PRINT : "PERCENTUALI ":"2% "sP2:"8% "35P8:"10% "iP10:"18% "sP18:"38% ":P38 
950 PRINT" =---___- sita "3 TOTP 

960 PRINT =»: 

970 INPUT "PROCEDO? (S/N) ":P$ 

980 IF P$="S" THEN 990 ELSE 210 

990 CALL CLEAR 

1000 PRINT " CALCOLO DELL'IVA |< <=@=@=@"=©»=—;—v>o--——————————- Lal 
1010 INPUT "IVA A CREDITO? L. ":IVAC 

1020 PRINT 

1030 INPUT "IVA ACQUISTI? L. ":IVAA 

1040 PRINT 

1050 INPUT "IVA AC®.PREC.? L. ": IVAAP 

1060 PRINT 

1070 INPUT "IVA CESS.PREC.?L. ": IVACP 

1080 PRINT :: 

1090 TOTA=TOTI-IVACP 

1100 IVAX=IVAA-IVAAP 

1110 IVA=TOTA-IVAX-IVAC 

1120 CALL CLEAR 

11350 PRINT :" DICHIARAZIONE IVA @©=nho= = -------------- Et 
1140 PRINT :"IVA PER CESS. L. "sTOTA 

1150 PRINT :"IVA PER ACQU. L. "s IVAX 

1160 PRINT :"IVA A CREDITO L. "3 IVAC 

1170 PRINT" =>=»=»=> "s:"IVA DA VERSARE L."sIVA 
1180 PRINT ::::: 

1190 INPUT "premi ENTER per finire ":W$ 


10 
il 
12 
13 
14 
15 
16 
20 
25 
27 
30 
1) 
35 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 


REM CONTABILITA” DI UNA ASSOCIAZIONE 
REM 
REM MODIFICABILE PER VARI USI 
REM 
REM ATTENZIONE ALLE DIM E MODIFICARE 
REM QUALORA SI VADA USARE IL DRIVE 
REM ===s==========oese======o====s=== 
REM 


OPTION BASE 1 
DIM U(11),V(11) U1(11),V1(11),D(11),D$(11),F2(11) ,F2$(11) ,F3(11) ,F3$(11),Q1(1 


DIM F4(11),F5(11),F6(11),G(11),HC11),IC(11),M(11),N(11),0(11) ,P(11),P1(11) 
DIM P2(11),P3(11),P4(11),R(11),T1(11),T2(11),T3(11),T4(11),F(11) 
GOTO 410 
CALL KEY(0,A,B) 

IF B=0 THEN 60 
A=A-48 

IF A<O THEN 60 

RETURN 

CALL CLEAR 

IF S<>}1 THEN 210 

OPEN £1:"CS1", INTERNAL, OUTPUT, FIXED(192) 

PRINT £1:K1$,C 

FOR X=i TO C 

PRINT ::"STO SCRIVENDO IL BILANCIO"::"MESE "sX5", ATTENDERE, PREGO. ":: 

PRINT £1:K$ (0) UO) ULOO  VOO,VI OO, WHO), C$(X) DX), D$E(X),Q1(X) ,F2(X),F2$(X 


) ,F3(X) ,F3$(X),F4(X),F50X) 


175 
Xx), 
180 
190 
200 
210 
220 
25 
240 
250 
260 
270 
280 
290 
300 
).F 
302 
Xx), 
Sio 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
4650 
470 


PRINT £1:F6(0X),G(X),H(X), IX), MX) NK), 0C(X) PX) ,P10X) ,P2(X) ,P3(X) ,P4(X),RC 
T1(X),T2(X),T3(X),T4(X) F(X) 

NEXT X 

CLOSE £1 

CALL CLEAR 

RETURN 

CALL CLEAR 

IF S=1 THEN 360 

OPEN £1:"CS1", INTERNAL, INPUT ,FIXED(192) 

INPUT £1:K1$,C 

PRINT ::L$:: "CONTABILITA" :"35K1%$ 

PRINT : "MESI INSERITI :"3C::L$ 

FOR X=1 TOC 

PRINT ::"STO LEGGENDO IL BILANCIO"::"MESE"sX:",ATTENDERE,PREGO.":: 
INPUT £1:K$(X),U(X) UIL (X), V(X) VI (X),W(X) ,C$(X),D(X),D$(X) ,Q1(X),F2(X),F2$(X 
3(X),F3$(X),F4(X) ,F50X) 

INPUT £1:F60X),600) HO), IX) MO) NO) OX) POX)PLO(X) ,P2(X) ,PIX) P4(X) RC 
TL (X),T2(X),T3(X) ,T4(X) ,F(11) 

NEXT X 

X=X-1 

CLOSE £1 

CALL CLEAR 

S=1 

RETURN 

CALL CLEAR 

PRINT L$:" CONTABILITA ASSOCIAZIONE" 

PRINT L$::::: 

RETURN 

GOSUB 370 

PRINT "O FINE LAVORO"::"1 CREAZIONE CONTABILITA":: 

PRINT "2 AGGIORNAMENTO CONTABILITA": 1rrrrrir:o 

GOSUB 60 

IF A>2 THEN 440 

IF A=0 THEN 2080 

IF Z=1 THEN 490 


480 
490 
300 
310 
320 
340 
330 
360 
370 
380 
390 
600 
619 
615 
620 
625 
6350 
640 
660 
665 
667 
670 
675 
690 
6895 
6897 
690 
700 
710 
715 
717 
720 
730 
752 
754 
755 

36 
7539 
740 
741 
745 
747 
750 
752 
754 
756 
758 
760 
762 
764 
766 
768 
770 
772 
773 
774 
776 
778 
780 
792 
784 
786 
788 
790 


792 


THEN 600 
THEN 440 


370 
" O 
SZ 
GOSUR 40 
IF A=0 THEN 410 

IF A>2 THEN 550 
CALL CLEAR 

ON A GOTO 1030,1710 


QUADRO PRINCIPALE"::"1 
VISUALIZZAZIONE DATI": 



























REM ##**PROC.CREAZIONE*** 

CALL CLEAR 

INPUT "NOME SCHEDARIO? ":K1$ 

X=1 

F(X)=X 35 
PRINT "MESE ?" 

INPUT K$(X) 


PRINT L$: "QUOTE ASSOCIATIVE ":: 
GOSUB 2500 

U(X)=Z20 

INPUT "NUMERO QUOTE ?":U1(X) 
IF Ul (X)=-1 THEN 615 

PRINT L$: "QUOTE ISCRIZIONE":: 
GOSUB 2500 


V{X)=Z20 848 
INPUT "NUMERO QUOTE ?":V1(X) 849 
IF VI(X)=-1 THEN 660 


PRINT L$: "CONC. SPAZI PUBBL. ASSOC. ":: 
GOSUB 2500 


W(X)=Z20 
INPUT "WHO?":C$(X) 
IF C$(X)="-1" THEN 6480 


PRINT L$: "CONC. SPAZI PUBBL.ATTIVITA"":: 
GOSUB 2500 


F3(X)=Z20 
INPUT "WHO?":F3$(X) 
IF F35$(X)="-1" THEN 710 


PRINT L$: "FINANZIAMENTI (P=PUBBLICI) " 


PRINT " (PR=PRIVATI)":" 
GOSUB 2500 

D(X)=Z20 

INPUT "WHO?":D$(X) 

IF D$(X)="-1" THEN 732 

PRINT L$:"CONSULENZE":: 


GOSUB 2500 
F2(X)=Z20 


INPUT "WHO?":F2$(X) 

IF F2$(X)="-1" THEN 740 

PRINT L$: "INTERESSI BANCARI":: 

GOSUB 2500 

QI1(X)=Z20 

IF Q1(X)=-1 THEN 754 

CALL CLEAR 

PRINT L$:" USCITE ATTIVITA” ":L$1r:: 


PRINT L$: "SEGRETERIA ATTIVITA” ":: 
GOSUR 2500 

O(X)=Z20 

IF O{X)=-1 THEN 764 

PRINT L$: "MATERIALE DIDATTICO":: 
GOSUB 2500 

P(X)=Z20 

IF P{X)=-1 THEN 7735 

PRINT L$: "AFFITTO SEDI ATTIVITA” ":: 
GOSUB 2500 


INSERIMENTO DATI":: 


P1(X)=Z20 

IF P1(X)=-1 THEN 782 

PRINT L$: "GRAFICA E STAMPA ATTIVITA" ":: 
GOSUB 2500 

P2(X)=Z20 

IF P2(X)=-1 THEN 790 

PRINT L$: "TRASFERTE ATTIVITA"":: 

GOSUB 2500 

P3(X)=Z20 

IF P3(X)=-1 THEN 798 

PRINT L$: "COMPENSO RELATORI":: 
GOSUB 2500 

P4(X)=Z20 

IF P4(X)=-1 THEN 806 

PRINT L$: "RAPPR.E OSPITALITÀ” 

GOSUB 2500 


ATT.":: 


R(X)=Z20 

IF R(X)=-1 THEN 814 

CALL CLEAR 

PRINT L$:" USCITE ASSOCIAZIONE ":L$::::: 


PRINT L$: "AFFITTO SEDE #":: 

INPUT F4(X) 

IF F4(X)=-1 THEN 822 

PRINT L$: "GESTIONE E PUL. SEDE ":: 
GOSUB 2500 

FS(X)=Z20 

IF FS(X)=-1 THEN 840 





(A=ATT.LIB.)": 


857 INPUT "---------------------------- AIM * ":F6(X) 
859 IF F6(X)=-1 THEN 852 

860 INPUT "---------------------------- ENEL * ":6(X) 

861 IF G(X)=-1 THEN 857 

864 PRINT L$: "SIP #":: 

865 INPUT H(X) 

867 IF H(X)=-1 THEN 860 

868 PRINT L$: "SEGRETERIA D.M.":: 

869 GOSUB 2500 

870 I(X)=Z20 

871 IF I(X)=-1 THEN 864 

872 PRINT L$: "GRAFICA E STAMPA DM #":: 

873 INPUT M(X) 

874 IF M(X)=-1 THEN 868 

875 PRINT L$:"RAPPR.E OSPITALITA" D.M.":: 

876 GOSUB 2500 

877 N(X)=Z20 

878 IF N(X)=-1 THEN 872 

880 INPUT "IL DATO E" CORRETTO ? (S/N) ":A3%$ 

882 IF A3$="N" THEN 875 

895 T2(X)=F4(X)+F5(X)+F6(X)+G(X)+H(X)+I(X)+M(X)+N(X) 

896 T1(X)=U(X)+V(X)+W(X)+D(X)+F2(X)+F3(X)+D1(X) 

897 T3(X)=0(X)+P(X)+P1(X)+P2(X)+P3(X)+P4(X)+R(X) 

898 T4(X)=T1(X)-(T2(X)+T3(X)) 

900 CALL CLEAR 

902 PRINT "ENTRATE DM MESE DI "5K$(X):L$:"Q.ASS.":TAB(10)5U(X)sTAB(17)sU1(X): "0. 
ISCR"5TAB(10)5V(X)5TAB(17)5V1(X) 

903 PRINT "SP.P.DM."sTAB(10):W(X)3TAB(18)5C$(X):"SP.P.ATT."53F3(X)5TAB(18);F3$(X) 
» "FINANZ.  "sD(X):TAB(3)5D$(X) 

905 PRINT "CONS. "sTAB(10);F2(X)sTAB(18)5F2$(X):"INT.BAN.":TAB(10)Q1(X):L$: "TOT. 
ENTR. DM "sT1(X) 

906 BREAK 

907 CALL CLEAR 

908 PRINT L$: "USCITE D.M.":L$:: "AFFITTO": TAB(15)5F4(X):"GEST.E PUL."sTAB(15);F5( 
XY): "AIM"; TAB(15)5F6(X) 

910 PRINT "ENEL"s TAB(15)5G(X):"SIP"s TAB(15)5H(X): "SEGRETERIA"sTAB(15)sI1(X):"GRAF 
.E STAMPA" TAB(15)sM(X) 

912 PRINT "RAPPR. E OSP. "sTAB(15)5N(X):L$: "TOTALE USCITE D.M. "5T200 

914 BREAK 

916 CALL CLEAR 

918 PRINT L$: "USCITE ATTIVITA” ":L$: "SEGRETERIA": TAB(15)50(X): "MAT.DIDATT. "5TAB(1 
5) sP(X) 

919 PRINT "AFFITTO SEDI"s TAB(15);P1(X) 

920 PRINT "GRAF. E STAMPA"s TAB(15)5P2(X):"TRASFERTE"sTAB(15)5P3(X): "COMP. REL." 
TAB(15)5P4(X) 

922 PRINT "RAPPR.E OSP. "5TAB(15);R(X):L$: "TOTALE USCITE ATT. "sT3(X) 

924 PRINT 

926 PRINT 

928 PRINT L$: "BILANCIO DEL MESE DI ":K$(X):T4(X):L$ 

932 PRINT L$:"VA BENE? (S/N) " 

934 GOSUB 60 

936 IF A<>35 THEN 660 

937 PRINT L$: "ALTRI BILANCI ? (S/N) " 

938 GOSUB 60 

939 IF A<>35 THEN 970 

950 X=X+1 

960 GOTO 625 

970 C=X 

980 S=1 

990 T=1i 

1000 Z=1 

1010 GOTO 410 

1020 REM **#*IN.PROC. INSER. ** 

1030 GOSUB 220 

1040 T=1 


1050 GOTO 950 

1710 REM *#IN.PROC.VIS.** 

1720 GOSUB 220 

1730 CALL CLEAR 

1740 PRINT L$:" VISUALIZZAZIONE DATI" 

1750 PRINT L$:::t: 

1750 PRINT "O QUADRO PRINCIPALE"::"1 RICERCA FER MESE":: 

1770 PRINT "2 RICERCA PER CODICE"::"30 VIS. TOTALE"::r:is:i 

1780 GOSURB 60 

1790 IF A>3 THEN 1780 

1800 IF A=0 THEN 410 

1810 ON A GOTO 1820, 3000, 1960 

1820 CALL CLEAR 

1830 INPUT "MESE DA VISUALIZZARE ? ":Y 

1840 IF Yc=0 THEN 1820 

1850 IF Y>C THEN 1730 

1860 GOSUB 2000 

1870 GOTO 1820 

1960 FOR Y=1 TOC 

1970 GOSUB 2000 

1980 NEXT Y 

1990 GOSUB 1730 

2000 CALL CLEAR 

2002 PRINT "ENTRATE DM MESE DI "sk${(Y):L$:"@.ASS":TAB(10)3U(Y)sTAB(17)sU1(Y): "0. 
ISCR"3TAB(10)3V(Y)sTAB(17)sVI(Y) 

2003 PRINT "SP.P.DM":TAB(10):W{Y)TAB(18):C$(Y):"SP.P.ATT."3F3(Y)sTAB(18):F3$(Y) 
2004 PRINT "FINANZ. —"5D(Y):TAB(3)5D$(Y) 

2005 PRINT "CONS. ":TAB(10)sF2(Y)sTAB(18);F2$(Y):"INT.BAN.":TAB(10)3Q1(Y):L$: "TOT 
» ENTR.DM "sT1(Y) 

2006 BREAK 

2007 CALL CLEAR 

2008 PRINT L$: "USCITE D.M.":L$::"AFFITTO"s TAB(15);F4(Y):"GEST.E PUL.":TAB(15):F5 
(Y) "AIM": TAB(15);F6(Y) 

2010 PRINT "ENEL": TAB(15) ;G(Y): "SIP": TAB(15)sH(Y): "SEGRETERIA": TAB(15)sI(Y): "GRA 
F.E STAMPA": TAB(15)sM(Y) 

2012 PRINT "RAPPR.E OSP. ":TAB(15)sN(Y)::L$: "TOTALE USCITE D.M. "siT2(Y) 

2014 BREAK 

2016 CALL CLEAR 

2018 PRINT L$: "USCITE ATTIVITA” ":L$: "SEGRETERIA": TAB(15):0(Y):"MAT.DIDATT.":TAB( 
15) sP(Y) 

2019 PRINT "AFFITTO SEDI":TAB(15);P1(Y) 

ZOZ0 PRINT "GRAF.E STAMPA": TAB(15);5P2(Y): "TRASFERTE "s TAB(15)sP3(Y):"COMP.REL.": 
AB{15)P4(Y) 

2022 PRINT "RAPPR.E OSP": TAB(15)sR(Y):L$: "TOTALE USCITE ATT. "iT3(Y) 

2024 PRINT 

2026 PRINT 

2028 PRINT L$: "BILANCIO DEL MESE DI ":k$(Y):T4(Y):L$ 

2030 PRINT ::L$:L$ 


2035 PRINT "PREMI 0 PER USCIRE" 2550 INPUT 25 

2040 PRINT "UN TASTO PER CONTINUARE" 2555 IF Z5=0 THEN 2740 
2050 GOSUB 60 2560 INPUT Z6 

2060 IF A=0 THEN 1710 2565 IF Z6=0 THEN 2725 
2070 RETURN 2570 INPUT 27 

2080 IF T=0 THEN 2100 2575 IF Z7=0 THEN 2745 
2090 GOSUB 110 2580 INPUT Z8 

2100 END 2585 IF Z8=0 THEN 2727 
2500 REM *#***CALCOLO DATI**%*%*%% 2590 INPUT Z9 

2505 REM 2595 IF Z9=0 THEN 2750 
2510 INPUT Zi 2597 PRINT "ULTIMO DATO" 
2515 IF Z1=0 THEN 2839 2600 INPUT Z10 

2520 INPUT Z2 2505 IF Z10=0 THEN 2729 
2525 IF Z2=0 THEN 2721 2610 GOTO 2729 

2530 INPUT Z3 2721 LET Z20=Z1+Z2 

2535 IF Z3=0 THEN 2735 2722 GOTO 2840 

2540 INPUT Z4 2723 LET Z20=Z1+Z2+Z3+Z4 
2545 IF Z4=0 THEN 2723 2724 GOTO 2840 


2725 LET Z20=71+2Z2+73+24+Z5+Z6 

2726 GOTO 2840 

2727 LET Z20=Z1+Z2+23+24+25+26+77+178 
2728 GOTO 2840 

2729 LET Z20=71+Z2+Z3+Z4+Z5+Z6+77+18+79+Z10 
2730 GOTO 2840 

2735 LET Z20=Z1+Z2+Z5 

2737 GOTO 2840 

2740 LET Z20=Z1+72+Z3+24+25 

2742 GOTO 2840 

2745 LET Z20=Z1+72+Z3+24+Z5+2Z6+27 

2747 GOTO 2840 

2750 LET Z20=71+72+Z3+24+25+Z6+77+28+29 
2752 GOTO 2840 

2839 Z20=0 

2840 PRINT 220 

2850 RETURN 

3000 REM *** VISUAL. ### 

3010 CALL CLEAR 

3020 PRINT "*#**#*#*QUADRO DEI CODICI****" 


3050 PRINT "----- ENTRATE-------------- “gio i QUOTE ISCR.ASS.":"2 QUOTE ISCR.AT 


T.":"3  NUM.ISCR.ASS" 


3060 PRINT "4 © NUM.ISCR.ATT.":"5S  FINANZIAMENTI":"& TOTALE ENTRATE" 


3110 PRINT "----- USCITE ASSOCIAZIONE--":"7 GEST.E PUL.SEDE" 
31720 PRINT "8 SEGRETERIA":"9  RAPPR.E OSP.":"10 TOT.USCITE ASS." 


31350 PRINT "----- USCITE ATTIVITA" ---_- ":"i11 SEGRETERIA":"12  MAT.DIDATTICO":"15 


AFF.SEDI":"14 GRAF.E STAMPA " 


3140 PRINT "15 COMP.REL.":"16  RAPPR.E OSP.":"17 TOT.USCITE ATT.":"18 BILANCI 


O COMPLESSIVO" 
3150 INPUT "N.CODICE? ":A1 
3160 IF Al>18 THEN 3010 


3200 ON Al GOTO 3550, 35650, 3765, 3805, 3945, 3925, 4125, 4285, 43565, 4405, 4445, 4485, 4525 


,4565,4645, 4685, 4725, 4755 

3550 CALL CLEAR 

3600 PRINT L$: "TOTALE QUOTE ASS.":L$ 

3610 FOR Y=1 TO 10 

3620 J(Y)=U(Y) 

3630 GOSUB 6000 

3635 NEXT Y 

3640 GOTO 6010 

3650 CALL CLEAR 

3655 PRINT L$: "TOTALE QUOTE ATTIVITA” ":L$ 
3674 FOR Y=1 TO 10 

3675 J(V)=VIY) 

3685 GOSUB 6000 

3690 NEXT Y 

3695 GOTO 6010 

3765 CALL CLEAR 

3770 PRINT L$: "NUMERO DI ISCRITTI ASS. ":L$ 
3775 FOR Y=i TO 10 

3780 J(Y)=U1L(Y) 

3800 GOSUB 6000 

3802 NEXT Y 

3804 GOTO 6010 

3805 CALL CLEAR 

3910 PRINT L$: "NUMERO DI ISCRITTI ATT.":L$ 
3825 FOR Y=1 TO 10 

3830 J(Y)=V1(Y) 

3835 GOSUB 6000 

3938 NEXT Y 

3840 GOTO 6010 

3845 CALL CLEAR 


PRINT L$: "FINANZIAMENTI":L$ 
FOR Y=1i TO 10 


J@O=D(1)+D(2)+D(3)+D(4)+D(5)+D(6)+D(7)+D(8)+D(9)+D{10) 


PRINT DIY)s" "iD$(Y) 

NEXT Y 

GOTO 6010 

CALL CLEAR 

PRINT L$: "TOTALE ENTRATE ASS+ATT.":L$ 
FOR Y=1 TO 10 

J{Y)=T1(Y) 

GOSUB 4000 

NEXT Y 

GOTO 6010 

CALL CLEAR 

PRINT L$: "GESTIONE E PULIZIA SEDE":L$ 
FOR Y=1 TO 10 

J{Y)}=FS(Y) 

GOSUB 65000 

NEXT Y 

GOTO 6010 

CALL CLEAR 

PRINT L$: "SEGRETERIA ASSOCIAZIONE":L$ 
FOR Y=1 TO 10 
J(Y)=I(Y) 

GOSUB 6000 

NEXT Y 

GOTO 6010 

CALL CLEAR 

PRINT L$: "RAPPR.E OSP. 
FOR Y=i TO 10 
J{Y)=N(Y) 

GOSUB 6000 

NEXT Y 

GOTO 6010 

CALL CLEAR 

PRINT L$: "TOTALE USCITE ASSOCIAZIONE":L$ 
FOR Y=1 TO 10 

J(Y)=T2(Y) 

GOSUB 65000 

NEXT Y 

GOTO 6010 

CALL CLEAR 

PRINT L$: "SEGRETERIA ATTIVITA” ":L$ 

FOR Y=1 TO 10 

J{Y)}=0(Y) 

GOSUB 65000 

NEXT Y 

GOTO 6010 

CALL CLEAR 

PRINT L$: "MATERIALE DIDATTICO":L$ 

FOR Y=1 TO 10 

J(Y)=P(Y) 

GOSUB 5000 


ASS. ":L$ 


4775 
4780 
4795 
6000 
65004 
6008 
6010 
6020 
6030 
6040 
6050 
6060 


GOSUB 5000 
NEXT Y 

GOTO 6010 
PRINT J{Y) 


RETURN 


GOSUB 60 


T=1 
GOTO 410 


IF A=35 THEN 3O10 


4510 
4515 
4525 
4530 


4535 


4540 
4545 
4550 


4555 


4565 
4570 
4575 
4580 
4585 
4590 
4595 
4645 
4650 
4655 
4660 
4665 
4670 
4675 
4685 
46590 
4695 
4700 
4705 
4710 
4715 
4725 
4727 
4730 
4735 
4740 
4745 
4750 
4755 
4760 
4765 
4770 


NEXT Y 

GOTO 6010 

CALL CLEAR 

PRINT L$: "AFFITTO SEDI ATTIVITA” ":L$ 
FOR Y=1 TO 10 

J(Y)=P1(Y) 

GOSUB 65000 

NEXT Y 

GOTO 6010 

CALL CLEAR 

PRINT L$:"GRAF.E STAMPA ATTIVITA" ":L$ 
FOR Y=1 TO 10 

J{Y)=P2(Y) 

GOSUB 6000 

NEXT Y 

GOTO 6010 

CALL CLEAR 

PRINT L$: "COMPENSO RELATORI":L$ 
FOR Y=1 TO 10 

J{Y)=P4(Y) 

GOSUB 65000 

NEXT Y 

GOTO 6010 

CALL CLEAR 

PRINT L$:"RAPPR.E OSP.ATTIVITA”":L$ 
FOR Y=1 TO 10 

J{Y)=R(Y) 

GOSUB 6000 

NEXT Y 

GOTO 6010 

CALL CLEAR 

PRINT L$: "TOTALE USCITE ATTIVITA" ":L$ 
FOR Y=1 TO 10 

J(Y)=TI{Y) 

GOSUB 5000 

NEXT Y 

GOTO 6010 

CALL CLEAR 

PRINT L$: "RILANCIO COMPLESSIVO":L$ 
FOR Y=1 TO 10 

J(Y)=T4(Y) 


JO=J (1) +J(2)+3J(3)+I(4)+J(5)+J(6)+J(7)+1J(8)+J(9)+J(10) 


PRINT L$:"TOTALE":J0:L$ 
PRINT "ALTRI CODICI? (S/N) " 


100 
110 
120 
130 
140 
150 
150 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 


330 


364 
370 


CALL CLEAR 

CALL SCREEN(2) 

CALL CHAR(120, "00183C24243C18") 
CALL CHAR(128, "0000001") 

CALL CHAR(136, "FFFFFFFFFFFFFFFF") 
CALL CHAR(144, "00003C3C3C3C") 
CALL CHAR(145, "00003C3C3C3C") 
CALL CHAR(146, "00003C3C3C3C") 
CALL CHAR (152, "0018245A5A2418") 
CALL CHAR(153, "0018245A5A2418") 
FOR I=2 T0 9 

CALL COLOR(1I,16,2) 
NEXT I 
CALL COLOR(12,7,16) 
CALL COLOR (13,2 ,16) 

CALL COLOR (14, 16,16) 
CALL COLOR(15,13,16) 
CALL COLOR(16,5,16) 
PRINT TAB(10); "WÀANDERING"::::: 
CALL SOUND (500, 294,0, 392,0,494, 
CALL SOUND (250, 294,0,392,0, 494,0) 
CALL SOUND (250, 392,0, 494,0,587,0) 
CALL SOUND(1000,294,0,349,0,440,0) 
PRINT srrrsrrrroso 
FOR I=1 TO 100 
NEXT I 
CALL CLEAR 

E=0 

IF C<>}146 THEN 390 
E=E+500 

1=153 

S=17 
D=15356 

=2 
A=3 
F=3 

=3 
P=0 
0=250 
FOR I=3 TO 23 STEP 2 
CALL HCHAR(1,3, 128,29) 
NEXT I 

FOR I=3 TO 31 STEP 2 
CALL VCHAR(4,1,128,19) 
NEXT I 
CALL HCHAR(23,2,144) 

CALL HCHAR (2 Sap 
CALL HCHAR(23,4,32) 

CALL HCHAR 13, 17,152) 
GOSUB 1110 

GOSUB 1370 


600 GOTO 580 
610 CALL CLEAR 
620 E=E+P 

630 P=0 

640 Q=150 

650 M=2 
660 F=3 
670 6=3 
680 A=3 
690 2=3 
700 S=32 
710 FOR I=3 TO 23 STEP 10 
720 CALL HCHAR(I,3,128,29) 
730 NEXT I 

740 FOR I=3 TO 31 STEP 7 
750 CALL VCHAR(4,I1,128,19) 
760 NEXT I 

770 FOR I=4 TO 30 STEP 2 
780 FOR R=4 TO 22 STEP 2 
790 CALL HCHAR(R,I,128) 
800 NEXT R 

810 NEXT I 

820 FOR I=5 TO 29 STEP 2 
830 FOR R=5 TO 21 STEP 2 
840 CALL HCHAR(R,I,128) 
950 NEXT R 

860 NEXT I 

870 CALL HCHAR(23,2,145) 
880 CALL HCHAR(22,3,32) 
890 CALL HCHAR(23,4,32) 
900 CALL HCHAR(3,32,153) 
910 GOSUB 1110 

920 GOSUB 1370 

930 GOTO 910 

940 CALL CLEAR 

950 D=32 

960 E=E+P+250 

970 M=2 

980 F=3 

990 G=3 

1000 A=3 

1010 Z=3 

1020 S=32 

1030 FOR I=3 TO 23 

1040 CALL HCHAR(I,3,136,29) 
1050 NEXT I 

1060 CALL HCHAR(23,2,146) 
1070 CALL HCHAR(3,32,153) 
1080 GOSUB 1110 

1090 GOSUB 1370 

1100 GOTO 1080 

1110 CALL JOYST(1,X,Y}) 


1120 IF (X+Y=0)+(X+Y=8)+(X+Y=-8)THEN 1360 1470 CALL GCHAR(M,A,H) 


1130 CALL GCHAR(Z-Y/4,5+X/4,C) 1480 IF H=32 THEN 1540 

1140 IF C=32 THEN 1360 1490 CALL HCHAR (F,6G,D) 

1150 IF C=136 THEN 1190 1500 CALL HCHAR(M,A, 120) 

1150 B=152 1510 IF (H=152)+(H=153)THEN 1570 
1170 P=P+1 1520 F=M 

1180 GOTO 1200 15350 G=A 

1190 B=153 1540 M=F 

1200 CALL GCHAR(Z,5,V) 1550 A=G 

1210 IF Vv=153 THEN 1240 1560 RETURN 

1220 N=136 1570 FOR I=l TO 15 

1230 GOTO 1250 1580 CALL HCHAR(Z,5,136) 

1240 N=32 1590 FOR L=I*220 TO (I+3)&220 STEP 1109 
1250 CALL HCHAR(Z,5,N) 1600 CALL SOUND (-500,L,15-1,4180-L,1) 
1260 Z=Z-Y/4 1610 NEXT L 

1270 S=S+X/4 1620 CALL HCHAR(Z,5,120) 

1280 CALL HCHAR(Z,5,B) 1650 NEXT I 

1290 IF C=120 THEN 1570 1640 CALL CLEAR 

1300 IF P<Q THEN 1360 1650 E=E+P 

1310 IF P*@ THEN 1330 1560 PRINT "IL TUO PUNTEGGIO :":E:: 
1320 CALL HCHAR(23,4,136) 1670 PRINT "RECORD ATTUALE :"sUrssssrii: 
13550 IF C=144 THEN &10 1680 IF EU THEN 1700 

1340 IF C=145 THEN 940 1690 U=E 

1550 IF C=146 THEN 360 1700 PRINT "VUOI GIOCARE ANCORA?":: 
13560 RETURN 1710 PRINT " (J) "srt: 

1570 IF M>Z THEN 1410 1720 CALL KEY{0,K,ST) 

1380 IF M=Z THEN 1420 1730 IF ST=0 THEN 1720 

1390 M=M+t1 1740 IF K=106 THEN 360 

1400 GOTO 1420 1750 CALL CLEAR 

1410 M=M-1 1750 FOR I=2 T09 

1420 IF A>5 THEN 1460 1770 CALL COLOR(I, 2,2) 

1450 IF A=S THEN 1470 1780 NEXT I 

1440 A=A+1 1790 PRINT "SCRITTO DA VON ROLF HEIKAMP" 
1450 GOTO 1470 1800 END 

1460 A=A-1 


MATERIALE DISPONIBILE NEL CLUB 


MANUALE IN ITALIANO;- COME PROGRAMMARE IN ASSEMBLER CON LA MINIMEMORY. ALLEGATA 
LA REFERENZE CARD DELL’EDITOR ASSEMBLER, IL LISTATO DISASSEMBLATORE E 5 LISTATI 
DI PROGRAMMI VARI... 0000000000000 serre vonecnazeario re sc0icoestIREc 00000121000 
MANUALE ITALIANO EXTENDED BASIC. 190 PAGINE DI TRADUZIONE PER CAPIRE QUESTO FA 
VOLOSO LINGUAGGIO NEI MINIMI PARTICOLARI. ......0. 000000000 
MANUALE TMS 9900, SCHEMI DEL MICROPROCESSORE E TUTTI GLI SCHEMI ELETTRICI DEL 
NOSTRO TI 99, COMPRESO IL BOX, L'ESPANSIONE, IL SINTETIZZATORE ..LIRE .....19.000 
VOLUME -TI 99 COMPUTER- DI TOWSEND IN INGLESE. MOLTO UTILE......LIRE......12.000 
LEZIONI DI EXTENDED BASIC INTERATTIVO.7 PROGRAMMI PIU’ UN GIOCO SU 4 CASSETTE DA 
VEDERSI TUTTE PER IMPARARE A CAPIRE. MOLTI ESEMPI.......c0000rse0LIRE.0000,20.000 
LEZIONI DI BASIC. 8 PROGRAMMI INTERATTIVI SU 4 CASSETTE.........LIRE.....,20.000 
JOYSTICK TEXAS COPPIA... cer 000000 srccecereciecc re reco cccorer 00 00IRE00001:45,000 
LOGO S5S DELLA MONDADORI/LARICCIA CON VOLUME DEDICATO.......... LIRE »209. 000 
ESPANSIONE 32 K IN SCHEDA PER IL BOX PERHIPHERAL.......0r00000 «LIRE ..0.229.000 
ESPANSIONE 32 K PER ALLACCIAMENTO ALLA CONSOLLE DIRETTAMENTE....LIRE.....229,000 
INTERFACCIA 2352 PER COLLEGAMENTO EBTERNO STAMPANTE PARALLELA....LIRE.....240,000 
INTERFACCIA 232 IN SCHEDA PER IL BOX PERIPHERAL........0000000..LIRE.....240.000 
STAMPANTE MANNESMAN 80 COLONNE, 80 CARATTERI SECONDO, BIDIREZIONALE, FOGLIO SINGO 
LO 0 A TRATTORE, FORNITO DI CAVO PER LA RS232 TEXAS. ...000000 0 «LIRE....»780,000 
“CAVETTI PER COLLEGAMENTO REGISTRATORE CONSOLLE. .......000000 000 «LIRE.0000:12.000 
MONITOR PRINCE PRANDONI 12 POLLICI FOBFORI VERDI E AUDIO........LIRE.....189.000 
dara GOMMKLOARDED FROM HHE.TISSIUC.IT i 
PER LE RIVISTE -TUTTO TI 99- SONO DISPONIBILI SOLO I NUMERI 3,4,5 INVIARE CON 
VAGLIA ANTICIPATO LIRE 10.000 PER RICEVERLE. NON SPEDIAMO CONTRASSEGNO (COSTA !) 
CHI DESIDERA L'ELENCO GENERALE DEI PROGRAMMI ( 9 FOGLI ) INVIARE LIRE 1500 
OGNI PROGRAMMA SU CASSETTA SINGOLA COSTA LIRE 5000. NON ORDINATE 1 SOLA CASSETTA 





10 CALL CLEAR 
20 REM FRANCOMPUTER CLUB VICENZA 


30 PRINT TAB(9); "IL ROMPICAPO":TAB(9);"----------- "::TAB(14)s "DEL":TAB(14);"---" 
::TAB(13)s "CUBO": TAB(13)5"----"1: ssd coso sad 

40 FOR J=1 T0 2 95 3 3 

SO IA=200 2040 FOR K=0 TO 2 


2050 A(K,15)=A(3+K,8) 
2060 A(K,8)=A(3+K, 18) 
2070 A(K,18)=A(5-K,2) 
2080 A(K,2)=A(5-K,15) 


60 CALL SOUNDCIA,131,0,262,3,523,3) 
70 CALL SOUND(IA,147,0,294,3,587,3) 
80 CALL SOUNDC(IA,131,0,311,3,622,3) 
90 CALL SOUND(IA,156,0,311,3,622,3) 


100 CALL SOUND(IA,131,0,294,3,587,3) FORO NERI K 
110 CALL SOUND(IA,156,0,294,3,587,3) 2100 RETURN 
120 CALL SOUND(IA*2,131,0,262,3,523,3) 2110 REM D+ 
130 REM INIZIO 2120 D=12 


21350 GOSUB 3680 

2140 FOR k=0 TO 2 
2150 AC(K,17)=A(3+K,10) 
2160 ACK,10)=A(3+K, 20) 
2170 ACK,20)=A(5-K,0) 
2180 A(K,0)=A(5-K,17) 
2190 NEXT K 

2200 RETURN 

2210 REM D- 

2220 D=12 

2230 GOSUB 3780 

2240 FOR K=0 TO 2 
2250 A(K,17)=A(5-K,0) 
2260 A{K,10)=A(3+kK,17) 
2270 AC(K,20)=A(3+K,10) 


140 CALL SOUND(IA,156,0,262,3) 
150 CALL SOUND(IA,123,0,294,3) 
160 CALL SOUND(IA,131,0,311,3) 
170 CALL SOUND(IA,156,0,392,3) 
180 CALL SOUND(IA,131,0,294,3) 
190 CALL SOUND(IA,156,0,311,3) 
200 CALL SOUND(IA*2,131,0,262,3) 
210 NEXT J 

220 DIM A(5,20) 

230 A$="007E7E7E7E7E7E00" 

240 CALL CHAR(144,A$) 

250 CALL CHAR(136,A$) 

260 CALL CHAR(128,A$) 

270 CALL CHAR(120,A$) 

280 CALL CHAR(112,A$) ian 
290 CALL CHAR(104,A$) e 30)=A(57K, 20) 
300 CALL CHAR(96,A$) 2290 NEXT K 


310 CALL COLOR(15,14,2) 2300 RETURN 
320 CALL COLOR(14,7,2) 2310 REM —££GIOCO£E 


330 CALL COLOR(13,13,2) 2320 GOSUB 4530 
340 CALL COLOR(12,5,2) 2330 CALL HCHAR(2, 13,96) 


dial dii 2340 CALL HCHAR(4,13,128) 
360 CALL COLOR(10,11,2) 23550 GOSUB 3460 

370 CALL COLOR(9, 2,2) 2560 X=KEY ) 

380 PRINT :::"PER LE ISTRUZINI PREMI S/N" 2370 CALL KEY(0,K,5) 
PAIS 2380 IF S<>0 THEN 2370 
Ir 2390 IF X<>83 THEN 2480 


410 REM REGOLE£E£FE££E£ESE 

420 PRINT :::"IL CUBO SI PRESENTA COSI” :":TAB(18)s"H"::TAB(14)s"P GA D'::TAB(1 

8);"B" 

430 PRINT "H=FACCIA ALTA"::"P=FACCIA POSTERIORE"::"G=FACCIA SINISTRA"::"A=FACCIA 
ANTERIORE"::"D=FACCIA DESTRA" 

440 PRINT :"B=FACCIA BASSA": :: "PREMI UN TASTO": 

450 GOSUB 3460 

460 PRINT :: "MOVIMENTO: ":"--------- "::"1.UNA FACCIA:"::"-PREMERE LA LETTERA CORR 
IS- FONDENTE, BREVEMENTE, " 

470 PRINT. "_POI + PER GIRARE IN SENSO ORARIO, ":: 

480 PRINT "_E - PER GIRARE IN SENSO CONTRARIO":::: 

490 PRINT " ATTENZIONE :LE LETTERE DEVONO ESSERE MAIUSCOLE.":: "PREMI UN TASTO": 
3500 GOSUB 3460 

510 PRINT ::"2. PER GIRARE IL CUBO:"::"-PREMI C,"::"-POI:"::"FCTN E PER GIRARE A 
sH"::"FCTN X PER A,B"ss: 

3520 PRINT "FCTN S PER A,6"::"FCTN D PER A,D":::::::: "PREMI UN TASTO": 

530 GOSUB 3460 

540 PRINT ::: "ATTENZIONE: PRIMA DI FARE UN MOVIMENTO, ATTENDERE IL COLO RE VERDE D 
EL QUADRATINO POS TO A FIANCO DELLE LETTERE":: 

3550 PRINT "SE E" IN CORSO UNA PARTITA E DESIDERATE REGISTRARE LA SITUAZIONE" 
560 PRINT "FREMERE -S- POI POTRETE RIPRENDERLA QUANDO VOLETE” 

3570 PRINT :::::::: "PREMI UN TASTO" 

3580 GOSUB 3460 


590 PRINT ::::: "SITUAZIONE DI PARTENZA":"---------------------- Mai gi8.3 
IAMARE":: 

600 PRINT "P=PER REGISTRARE"::"Q=PER INIZIARE"::1r1:ss: 

610 GOSUB 3460 

620 B=KEY-78 

630 IF B<1 THEN 590 

640 IF B>3 THEN 590 

650 ON B GOTO 660,750,1000 

660 REM CASSETE 

670 OPEN £1:"CS1", SEGUENTIAL, INTERNAL, INPUT ,FIXED 192 

680 INPUT £1:A(0,0),A(0,1),A(0,2),A(0,4),A(0,5),A(0,6),A(0,8),A(0,9),A(0,10),AC0 
+12),A(0,13) ,A(0,14),A(0,15) 

690 INPUT £1:A(0,16),A(0,17),A(0,18),A(0,19),A(0,20),A(1,0),A(1,1) ,A(1,2),A(1,4) 
.A(1,5),A(1,6) ,A(1,8),A(1,9) 

700 INPUT £1:A(1,10),A(1,12),A(1,13),A(1,14),A(1,15),A(1,16),A(1,17),A(1,18),AC1 
19) ,A(1,20),A(2,0),A(2,1) 

710 INPUT £1:A(2,2),A(2,4),A(2,5),A(2,6),A(2,8),A(2,9),A(2,10),A(2,12),A(2,13),A 
(2,14) ,A(2,15),A(2,16),A(2,17) 

720 INPUT £1:A(2,18),A(2,19),A(2,20),C 

730 CLOSE £1 

740 GOTO 2310 

750 REM PARTENZA PROGRAMMA 
750 GOSUB 4280 

770 GOSUB 4530 

780 GOSUB 1110 

790 GOSUB 3620 

800 GOSUB 2110 

810 GOSUB 3620 

820 GOSUB 1310 

830 GOSUB 3620 

840 GOSUR 1910 

850 GOSUB 3620 

860 GOSUB 1510 

870 GOSUB 3620 

880 GOSUB 1810 

890 GOSUB 3620 


"O=PER RICH 


1500 RETURN 

1510 REM A+ 

1520 D=8 

1530 GOSUB 3680 
1540 FOR K=0 TO 2 


1200 RETURN 
1210 REM H- 

1220 D=15 

1230 GOSUB 3780 

1240 FOR K=4 TO 14 
1250 AC0,K)=A(3,K-4) 
1260 NEXT K 

1270 FOR K=0 TO 2 
1280 AC0,K)=A(3,K+12) 
1290 NEXT K 

1300 RETURN 

1310 REM B+ 

1320 D=18 

1330 GOSUB 3680 

1340 FOR K=4 TO 14 


1550 A(K,12)=A(5,15+K) 


1590 A{K,6)=A(3,18+K) 
1590 NEXT K 

1600 RETURN 

1610 REM A- 

1520 D=8 

1630 GOSUB 3780 

1540 FOR K=0 TO 2 


1550 A(2,15+K)=A(5-K,6) 


1570 A(0,18+K)=A(5-K,12) 


900 GOSUB 1210 
910 GOSUB 3620 
920 GOSUB 1610 
9350 GOSUB 3620 
940 GOSUB 1710 
950 GOSUB 3620 


1350 A(2,K)=A(5,K-4) 


1360 
1370 
1390 
1390 
1400 


NEXT K 

FOR K=0 TO 2 
A(2,K)=A(S,K+12) 
NEXT K 

RETURN 


16550 A(2, 15+K)=A(3+K, 12) 


1660 
1670 
1680 
1690 
1700 


ACK,12)=A(3,20-K) 
ACO, 18+K)=A(3+K,6) 
ACK,6)=A(5,17-K) 
NEXT K 

RETURN 


Ò 1710 REM P+ 
960 GOSUB 2010 o. i % 1720 D=0 
FLO BRSDE 3382 1430 GOSUB 3780 1730 GOSUB 3680 
. SS 1440 FOR K=0 TO 10 1740 FOR K=0 TO 2 
da le) = 5 ) SA (T+k 

1000 REM PARTENZA QUALSIASI o ia a 23399 ROS 9088 Sti) 
Ri 1760 ACK,14)=A(5,20-K) 
[osa nen ao 1470 FOR K=12 TO 14 1770 A(2,18+K)=A(3+K,4) 

s 1480 A(2,K)=A(5,K-12) 1780 A(K,4)=A(3,17-K) 
1030 FOR M=1 TO 10 1490 NEXT K 1790 NEXT K 
1040 RANDOMIZE 
1050 F=INT(12*RND)+1 


1060 


ON F GOSUB 1110,1210,1310,1410,1510,1610,1710,1810,1910,2010,2110,2210 


1070 GOSUB 3620 
1080 NEXT M 1800 RETURN 1910 REM G+1 

1090 GOSUB 3500 1810 REM P- 1920 D=4 

1100 GOTO 2330 1820 D=0 1930 GOSUB 3680 

1110 REM H+ 1830 GOSUB 3780 1940 FOR K=0 TO 2 
1120 D=15 1840 FOR K=0 TO 2 1950 A(K,15)=A(5-K,2) 


1960 A(K,8)=A(3+K,15) 
1970 A(CK,18)=A(3+k,8) 
1980 A(CK,2)=A(5-K, 18) 


1850 AC0,15+K)=A(5-K,4) 
1860 ACK,14)=A(3,15+K) 
1870 A(2, 18+K)=A(5-K,14) 


1150 GOSUB 36580 
1140 FOR K=0 TO 10 
1150 AC0,K)=A(3,k+4) 


1160 NEXT K 1880 A{K,4)=A(5,18+K) 1990 NEXT K 

1170 FOR K=12 TO 14 1890 NEXT K 2000 RETURN 
SAT. k- 1900 RETURN 2010 REM G- 

1180 A(0,K)=A(3,K-12) i 


1190 NEXT K 


VEDI tizio 


2400 OPEN £1:"CS1", SEQUENTIAL, INTERNAL, OUTPUT, FIXED 192 

2410 PRINT £1:A(0,0),A(0,1),A(0,2),A(0,4),A(0,5),A(0,6),A(0,8),A(0,9),A(0,10), AC 
0,12),A(0,13) ,A(0,14) ,A(0,15) 

2420 PRINT £1:A(0,16),A(0,17),A(0,18) , A(0,19) ,A(0,20),A(1,0),A(1,1), A(1,2),A(1,4 
),A(1,5),A(1,6),A(1,8),A(1,9) 

2430 PRINT £1:A(1,10),A(1,12),A(1,13),A(1,14),A(1,15),A(1,16),A(1,17) ,A(1,18),0( 
1,19) ,A(1,20),A(2,0),A(2,1) 

2440 PRINT £1:A(2,2),A(2,4) ,A(2,5),A(2,6),A(2,8),A(2,9),A(2,10),A(2,12),A(2,13), 
A(2,14),A(2,15),A(2,16),A(2,17) 

2450 PRINT £1:A(2,18),A(2,19),A(2,20),C 

2460 CLOSE £1 


2470 END 2850 IF Y=45 THEN 2870 3220 C=C+1 

2480 CALL KEY{0,CLE,ST) 2860 IF Y<>47 THEN 2330 3230 GOSUB 3500 
2490 IF ST=0 THEN 2480 2870 GOSUB 1810 3240 V=0 

2500 CALL SOUND(1,500,0) 2880 GOTO 3210 3250 GOSUB 4450 
2510 Y=CLE i 2890 IF Xx>71 THEN 2980 3260 V=4 

2520 GOSUB 4400 2900 IF Y=43 THEN 2920 3270 GOSUB 4459 
2530 IF Xx>72 THEN 2620 2910 IF Y<>61 THEN 2940 3280 V=8 

2540 IF Y=43 THEN 2560 2920 GOSUB 1910 3290 GOSUB 4450 
2550 IF Y<{>61 THEN 2580 2930 GOTO 3210 3300 V=12 

2560 GOSUB 1110 2940 IF Y=45 THEN 2960 3310 GOSUB 4450 
2570 GOTO 3210 2950 IF Y<>47 THEN 2330 3320 V=18 

2580 IF Y=45 THEN 2600 2960 GOSUB 2010 3330 GOSUB 4450 
2590 IF Y<>47 THEN 2330 2970 GOTO 3210 

2600 GOSUB 1210 2980 IF X<>68 THEN 3070 

2610 GOTO 3210 2990 IF Y=43 THEN 3010 

2620 IF X€>66 THEN 2710 3000 IF Y<>61 THEN 3030 

2630 IF Y=43 THEN 2650 3010 GOSUB 2110 

2640 IF Y<«>*61 THEN 2670 3020 GOTO S210 

2650 GOSUB 1310 3030 IF Y=45 THEN 3050 

2660 GOTO 3210 3040 IF Y<>47 THEN 2330 

2670 IF Y=45 THEN 2690 3050 GOSUB 2210 

2680 IF Y<>47 THEN 2330 3060 GOTO 3210 

2690 GOSUB 1410 3070 IF X<>67 THEN 2330 

2700 GOTO 3210 3080 IF Y<>11 THEN 3110 

2710 IF X<>65 THEN 2800 090 GOSUB 3880 

2720 IF Y=43 THEN 2740 Sw GOTO sof 

2730 IF Y<>61 THEN 2760 3110 IF Ye>10 THEN 3140 

2740 GOSUB 1510 3120 GOSUB 3980 

2750 GOTO 3210 3130 GOTO 3190 

2760 IF Y=45 THEN 2780 3140 IF Y<>9S THEN 3170 

2770 IF Y<x>47 THEN 23350 3150 GOSUB 4080 

2780 GOSUB 1610 3160 GOTO 3190 

2790 GOTO 3210 3170 IF Y<>8 THEN 2330 

2800 IF X<>80 THEN 2890 3180 GOSUB 4180 

2810 IF Y=43 THEN 2830 3190 GOSUB 3500 

2820 IF Y<>61 THEN 2850 3200 GOTO 3430 

2830 GOSUB 1710 3210 REM CONTROLLO 


2840 GOTO 3210 


3340 PRINT "SEI RIUSCITO IN"3C; "MOVIMENTI" 

3350 FOR J=1 TO 11 

3360 READ MMM,NNN, 000 

3370 CALL SOUND (MMM, NNN,0,000,0) 

3380 NEXT J 

3390 DATA 125,262,131,125,294,131,250,156,131,250,131,147,250,262,131,100,262,13 
1 

3400 DATA 100,294, 123,100,311,131,100,392,131,100,294,131,100,311,131,125,262,13 
1,200, 131, 262 

3410 CALL SOUND(200,131,0,262,3,523,3) 

3420 END 

3430 GOSUB 3620 

3440 GOTO 2330 


3450 
3460 
3470 
3480 
3490 
3500 
3510 
3920 
3330 
3540 
SISÒ 
3360 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3590 
3700 
3710 
3720 
37350 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3950 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 


REM SOTTO PROG. INIZIO 
CALL KEY(0,KEY, STATUS) 
IF STATUS=0 THEN 3460 
CALL SOUND(1,1000,0) 
RETURN 

FOR K=0 TO 2 

FOR L=15 TO 17 

CALL HCHAR (K+8,L,A(K,L)) 
CALL HCHAR(K+16,L,A(K,L+3)) 
NEXT L 

NEXT K 

FOR K=0 TO 2 

FOR L=0 TO 14 

CALL HCHAR(K+12,L+7,A(K,L)) 
NEXT L 

NEXT K 

RETURN 

FOR K=0 TO 2 

FOR L=0 TO 20 
A(K+3,L)=A(K,L) 

NEXT L 

NEXT K 

RETURN 

REM MVT+ 

AO, D)=A(5,D) 
A(0,D+1)=A(4,D) 
A(0,D+2)=A(3,D) 
A(1,D+2)=A(3,D+1) 
A(2,D+2)=A(3,D+2) 
A(2,D+1)=A(4,D+2) 
A(2,D)=A(5,D+2) 
A(1,D)=A(5,D+1) 
RETURN 

REM MVT- 

AO, D)=A(3,D+2) 
A(0,D+1)=A(4,D+2) 
A(O,D+2)=A(5,D+2) 
A(1,D+2)=A(5,D+1) 
A(2,D+2)=A(5,D) 
A(2,D+1)=A(4,D) 
A(2,D)=A(3,D) 
A(1,D)=A(3,D+1) 
RETURN 

REM C=A-H 

GOSUB 2110 

GOSUB 2010 

FOR K=0 TO 2 
A(K,16)=A(3+K,9) 
ACK,9)=A(3+K,19) 
ACK,19)=A(5-K,1) 
A(K,1)=A(5-K,16) 

NEXT K 

RETURN 

REM C=A-B 

GOSUB 2210 

GOSUB 1910 . 

FOR Kk=0 TO 2 


4530 CALL CLEAR 
4540 PRINT TAB(6);"H"::TAB(2);"P GA D"::TAB(6);"B":r:rriricsosoroios:o 
4550 GOSUB 4400 
4560 GOSUB 3500 
4570 GOSUB 3620 
4580 RETURN 


4020 A(K,16)=A(5-K,1) 
4030 A(K,9)=A(3+K, 16) 
4040 A(K,19)=A(3+K,9) 
4050 ACK,1)=A(5-K,19) 
4060 NEXT K 

4070 RETURN 

4080 REM C=4-D 

4099 GOSUB 1210 

4100 GOSUB 1310 

4110 FOR K=4 TO 14 
4120 A(1,K)=A(4,K-4) 
4130 NEXT K 

4140 FOR K=0 TO 2 
4150 AC1,K)=A(4, 12+K) 
4160 NEXT K 

4170 RETURN 

4180 REM C=4-G 

4190 GOSUB 1110 

4200 GOSUB 1410 

4210 FOR K=0 TO 10 
4220 A(1,K)=A(4,4+k) 
4230 NEXT K 

4240 FOR K=0 TO 2 
4250 AC1,12+K)=A(4,K) 
4250 NEXT K 

4270 RETURN 

4280 REM CUBO FINITO 
4290 FOR K=0 TO 2 
4300 FOR L=0 TO 2 
4310 ACK,L+15)=144 
4320 A(K,L+18)=136 
4330 A(K,L)=128 

4340 ACK,L+8)=120 
4350 A(K,L+4)=112 
4360 A(K,L+12)=104 
4370 NEXT L 

4380 NEXT K 

4390 RETURN 

4400 REM ROSSO 

4410 CALL HCHAR(2,13,136) 
4420 CALL HCHAR(3, 13,144) 
4430 CALL HCHAR(4,13,96) 
4440 RETURN 

4450 REM CONTROLLO 
4460 G=A(0,V) 

4470 FOR K=0 TO 2 
4480 FOR L=V TO V+2 
4490 IF A(K,L)<>G THEN 3430 
4500 NEXT L 

4510 NEXT K 

4520 RETURN 


100 REM FTT722222222%2713 


110 REM +» * 
120 REMO » COOKIE! * 
150 REM è» * 
140 REM # TI-99/4A * 
150 REM _* * 
150 REM « *by Rosa Carlo* 
170 REM _* * 
180 REM * 13000 BYTES * 
190 REM * * 


200 REM CITTA ZIETE 5551 
210 REM DEFINIZIONE CARATTERI E COLORI 

220 CALL CLEAR 

250 FOR CC=1 T0 8 

240 CALL COLOR(CC,11,1) 

250 NEXT CC 

260 CALL SCREEN(5) 

270 RANDOMIZE 

280 CALL CHAR(95, "3C4299A1A199423C") 

290 CALL CHAR(97, "O035FFFFF3F1F3F6F") 

300 CALL CHAR(98, "OOCOFEFEC") 

310 FOR I=104 TO 115 

320 READ A$ 

3350 CALL CHAR(I,A$) 

340 NEXT I 

350 DATA FFFFFFFFFFFFFFFF,FFFAFAFDFDFDFDFF,FFE7C38181C3E7FF,FF7A7A7D7D7D7DFF ,FFB 
EBEBEBESESEFF ,FF7F7F7F7F7F7FFF,FFFEFEFEFEFEFEFF 
360 DATA FFBFBFBFBFSFSFFF,000000C3FF7E,070876FFFFFF7E5C, 94A445555632160C, 0405023 
D7FFCE474 

370 CALL CHAR(48, "00358444C54644438") 

380 CALL CHAR(144, "7E81818199E781E7") 

390 CALL CHAR(145, "FFFFFFFFFFFFFF7E") 

400 FOR I=128 TO 1356 

410 READ A$ 

420 CALL CHAR(I,hA$) 

450 NEXT I 

440 DATA D67C7C447C7C286C, 00308DB1067,F1FR7B7F7F7C7C7F,7F7E7F7F7F1B1B1F,E0E0COCO 
COCOC, DCOFDFFCFC00008 

450 DATA 3E0056D610C55D22, 00, 00000000FFFFFFFF 
460 CALL CHAR(152, "FF7E7E1818181818") 730 K=69 
470 CALL CHAR(1535, "FFFFC7DFCFDF5F7E") 740 NNC=0 
480 CALL CHAR(154,"7E7AFBESFBC3FFFF") 750 PS=0 
490 CALL CHAR(140, "00000066669999") 750 VITA=3 


500 CALL COLOR(10,9,16) 770 MEMI=0 
510 CALL COLOR(11,3,1) 780 MEM2=0 

520 CALL COLOR(13,16,1) 790 MEM3= 

530 CALL COLOR(15,15,1) 800 EMIT=0 

3540 CALL COLOR(16,10,1) 810 REM NUOVO LIVELLO 

550 CALL CLEAR 820 VITA=VITA+1 

560 IF SUONO=0 THEN 570 ELSE 600 830 LEV=LEV+1 

570 GOSUB 3880 840 INGR=0 

580 SUONO=1 850 IF LEV=1 THEN 860 ELSE 880 
590 GOTO dio 860 TIMED=40 

600 GOSUB 3980 970 GOTO 970 

610 CALL COLOR(9,15,1) 880 IF (LEV=2)+(LEV=3)THEN 890 ELSE 920 
620 REM INIZIALIZZAZIONE VARIABILI —g90 VEL=2 

630 IF SCO<=HISCO THEN 660 900 TIMED=30 

640 HISCO=SCO 910 GOTO 970 

650 GOTO 690 920 IF LEV=4 THEN 930 ELSE 960 
660 IF OSCIH=0 THEN 670 ELSE 690 930 VEL=1 

670 HISCO=450 940 TIMED=25 

680 OSCIH=1 950 GOTO 970 

690 SCO0=0 960 TIMED=20 

700 LEV=0 970 TIME=TIMED 

710 TIME=0 980 REM DISEGNO QUADRO 


720 SUONO=1 990 CALL CLEAR 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
12350 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1520 
13350 
1540 
1350 
1360 
1570 
13580 
1390 
1400 
1410 
1420 
1450 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1500 
1610 
1620 
1650 
1640 
1650 
1660 


PRINT "hhhhhhhhhhhhhhhhhhhhhhhhhhhh® 
PRINT "hhh phhh qhhhh r hhh s hhh" 
PRINT "hhhh hhhhh hhhhhh hhhhh hhhh”" 
PRINT "hab h" 
FOR I=l TO 2 

PRINT "hnjljoh njljo hnjljo hnjl joh" 
PRINT "hijkjmh ijkjm hijkjm hijkjmh" 
PRINT "hab h" 
PRINT "hnjo njljo njljoh njljo njoh" 
PRINT "hijm ijkjm ijkjmh ijkjm ijmh" 
PRINT "hab h" 
NEXT I 

PRINT "hhhhhhhhhhhhh  hhhhhhhhhhhhh" 
PRINT "hhhhhhhhhhhhhhhhhhhhhhhhhhhh" 
PRINT "" 

REM SCRITTURA COMMENTI 

M$="HIGH : " 

S$="SCORE : " 

D$="LEVEL : " 

E$="TIME :" 

F$="COOKIES " 

FOR PR=1 TO LEN(M$) 

CALL HCHAR{1,PR+2,ASC(SEG$(M$,PR,1))) 
CALL SOUND (-100, 2000, 0) 

CALL HCHAR(3,PR+2,ASC(SEG$(S$,PR,1))) 
CALL SOUND (-100,1000,0) 

CALL HCHAR(1,PR+18,ASC(SEG$(D$,PR,1))) 
CALL SOUND (-100, 500,0) 

CALL HCHAR(3,PR+18,ASC(SEG$(E$,PR,1))) 
CALL SOUND (-100, 250,0) 

CALL HCHAR(24,PR+2,ASC(SEG$(F$,PR,1))) 
CALL SOUND (-100, 125,0) 

NEXT PR 

CALL HCHAR(24, 11,58) 

REM STAMPA PUNTEGGI 

GOSUB 2700 

CALL HCHAR(1,15,48,2) 


GOSUB 2750 
CALL HCHAR(3,15,48,2) 
CALL HCHAR(3,27,48,2) 
GOSUB 2800 

GOSUB 2850 

GOSUB 1710 

GOSUB 2520 

REM GIOCO 

FOR SP=5 TO 20 


1670 
16580 
1590 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 


GOSUB 2520 
GOTO 1780 

CALL SOUND(1000, 110,0) 
VITA=VITA-1 

CALL HCHAR(24,13,32,19) 

IF VITA=0 THEN 3760 

FOR I=2 TO (VITA-1)*2 STEP 2 
CALL HCHAR(24,1+11,128) 

NEXT I 

RETURN 

CALL HCHAR(SP,6,32,Y-5) 

CALL KEY(0,KY,S) 

IF S=0 THEN 1820 

IF POSC"ESDX",CHR$(KY),1)=0 THEN 1820 
K=KY 

CALL HCHAR(X,Y,32) 

IF K<>69 THEN 1850 

x=X-1 

IF K<>68 THEN 1870 

v=V+1 

IF K<>88 THEN 1890 

X=X+1 

IF K<>83 THEN 1910 

Y=Y-1 

CALL SOUND (200,660+(X#Y),1) 
CALL GCHAR(X,Y,PS) 


IF (SP=8)+(SP=11)+(SP=14)+(SP=17)+(SP=20)THEN 1470 ELSE 1780 


TIME=TIME-1 
GOSUB 2800 

IF TIME=0 THEN 1500 ELSE 1530 
GOSUB 1690 

TIME=TIMED 

GOSUB 2800 

IF LEV=1 THEN 1780 

TNI=INT (RND*VEL) +1 

ON TNI GOTO 1560, 1780 

CALL HCHAR(SP,6,129,Y-5) 

CALL SOUND(200,-5,0) 

IF SP=X THEN 1590 ELSE 1770 

FOR I=1 T0 4 

CALL SOUND(200#*I,550-(110+1),4-I) 
NEXT I 

IF COLOR=12 THEN 1630 ELSE 1640 
CALL HCHAR (MX, MY, MPS) 

CALL HCHAR(SP, 6,32, Y-5) 

CALL HCHAR(X,Y,32) 

GOSUB 1700 


1930 


IF (ps=105)+(PS=106)+(PS=107)+(PS=109)+(PS=110)+(PS=111)+(PS=108)+(PS=104)+ 


(PS=98) THEN 1940 ELSE 2050 


1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 


FOR I=1 TO 10 
CALL SOUND (-50,220,1) 

CALL HCHAR(X,Y,128) 

CALL SOUND(-50,110,0) 

CALL HCHAR(X,Y,PS) 

NEXT I 

CALL SOUND (500,110,1) 

IF COLOR=12 THEN 2020 ELSE 2030 

CALL HCHAR (MX, MY,MPS) 

GOSUB 1700 

GOSUB 2520 

IF (PS=112)+(PS=113)+(PS=114)+(PS=115)THEN 2060 ELSE 2300 
IF COLOR=12 THEN 2290 

SCO=SC0+5 

GOSUB 2750 

COLOR=12 

RESTORE 2220 

READ N.T 

NNC=NNC+1 

IF N=999 THEN 2240 

CALL SOUND<T,N,1) 

FOR A=1 TO T/3-30 

NEXT A 

IF NNC/2-INT(NNC/2)=0 THEN 2200 

CALL HCHAR(X,Y,128) 

GOTO 2110 

CALL HCHAR(X,Y,PS) 

GOTO 2110 

DATA 523,200,523, 200,523,400,698, 200,698, 200, 698,400,880, 200, 698, 200, 523, 20 


0,523, 200, 698, 200, 698, 200, 698 


2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
23520 
23530 
2340 
23550 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 


DATA 400,999, 999 2560 COLOR=16 


MPS=P 
tia S 2570 CALL COLOR(13,COLOR, 1) 
Mel 2580 CALL HCHAR(X,Y,128) 


2590 CALL HCHAR(X,Y+1,32) 
2600 FOR I=51 TO 48 STEP -1 
2610 CALL HCHAR(6,16,1) 


CALL COLOR(13,COLOR,1) 
GOTO 2300 


X=X+2 

CALL HCHAR(X,Y,128) 2620 FOR J=57 TO 48 STEP -1 
IF (COLOR=12)#(X=21)THEN 23720 ELSE 2500 2630 CALL HCHAR(6,17,J) 
SCO=S5C0+10 2640 CALL SOUND (-50,1000+(1#J),0) 
GOSUB 2750 2650 NEXT J 

INGR=INGR+1 2660 NEXT I 

FOR I=2 TO INGR*2 STEP 2 2670 CALL HCHAR(6, 16,104, 2) 
IF I=INGR*2 THEN 2370 ELSE 2380 2680 RETURN 

CALL HCHAR(22,1+19,MPS) 2590 REM AGGIORNAMENTI PUNTEGGI 
NEXT I 2700 REM HI-SCORE 
COLOR=16 2710 RPUN=1 

CALL COLOR(13,COLOR,1) DIZO CPUNSI1 

IF INGR=4 THEN 3040 a750 PTSeg 

IF TIME>10 THEN 2430 ELSE 2450 2740 GOTO 2900 

TIME=TIMED 2750 REM SCORE 

GOTO 2460 2760 RPUN=3 
TIME=TIME+TIMED 2770 CPUN=11 

GOSUB 2800 2780 P=SC0 

CALL SOUND(1000,700,0) 2790 GOTO 2900 

CALL SOUND (2000, 800,0) 2800 REM TIME 

GOSUB 2520 2810 RPUN=3 

NEXT SP 2820 CPUN=27 

GOTO 1450 2830 P=TIME 

REM RIPOSIZIONE OMINO 2840 GOTO 2920 

X=21 2850 REM LEVEL 

Y=16 2860 RPUN=1 


IF OMINO=1 THEN 2600 2870 CPUN=27 


2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 


3030, 


3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
31350 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
33550 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 


P=LEV 


CALL SOUND (1000,-3,0) 


GOSUB 2950 
CALL VCHAR(HVEL+3,I,32,19-HVEL) 


REM SUBROUTINE PRINT AT 
CALL HCHAR(RPUN, CPUN, 48+INT(P/1000)) 

CALL HCHAR(RPUN, CPUN+1,48+INT((P-INT(P/1000)#*1000)/100)) 
CALL HCHAR(RPUN, CPUN+2,48+INT{{(P-INT(P/100)*100)/10)) 
CALL HCHAR(RPUN, CPUN+3,48+INT(P-INT(P/10)#*10)) 

RETURN Le 

REM TEMPO DI ATTESA SSR0 

FOR GH=1 TO 300 sai; 

NEXT GH 3550 

RETURN 3560 

REM TEMPO DI ATTESA 2 3570 


FOR GH=1 TO 1000 

NEXT GH 

RETURN 

REM SECONDA PARTE 

CALL HCHAR(6,1,32,544) 
CALL VCHAR(6,3,104,16) 
CALL VCHAR(6,30,104,16) 
CALL HCHAR(22,3,104, 28) 
OMINO=1 

FARI=0 

COLP=0 

IF LEV>=9 THEN 3130 
HVEL=15-LEV 

CALL HCHAR(HVEL,9,136,21) 
CALL HCHAR(HVEL+1,5,130) 
CALL HCHAR(HVEL+2,5,131) 
CALL HCHAR(HVEL+1,6,132) 
CALL HCHAR(HVEL+2,6,133) 
GOSUB 2520 

CALL HCHAR(21,16,32) 


35890 
3390 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 


CALL VCHAR(HVEL+1,1,32,2) 
NEXT I 

IF FARI=10 THEN 3620 
CALL VCHAR(20,POSI,32,2 
GOTO 3200 


SCO0=SC0+(COLP*LEV) 

GOSUB 2750 

IF COLP=10 THEN 3650 ELSE 3720 
0$=" BONUS 1000 " 
FOR O=1 TO LEN(0$) 


CALL HCHAR(14,0+3, ASC(SEG$(0$,0,1))) 
CALL SOUND(100,1000,0) 

NEXT Q 

SCO=SC0+10 

GOSUB 2750 

GOSUB 2990 

OMINO=0 

GOTO 810 

REM FINE DEL GIOCO 

FOR I=400 TO 120 STEP -20 


REM DETERMINAZIONE POSIZIONE DELLA PENTOLA 


POSI=INT(RND#*18)+10 
IF POSI=ISOP THEN 3200 

SPARO=0 

ISOP=POSI 

CALL HCHAR(20,POSI,144) 

CALL HCHAR(21,POSI, 145) 
FARI=FARI+1 

P=FARI 

RPUN=6 

CPUN=14 

GOSUB 2920 

FOR I=9 TO 28 

CALL HCHAR(HVEL+1,I,152) 

CALL HCHAR(HVEL+2,I,153) 

CALL SOUND(50,220+(1#*50),0) 

IF SPARO=1 THEN 3570 

CALL KEY(0,k,S) 

IF S=0 THEN 3570 

IF K=32 THEN 3400 ELSE 3570 
CALL HCHAR(HVEL+2,7,129,1-7) 
CALL SOUND(300,-5,1) 

CALL HCHAR(HVEL+2,7,32,1-7) 
CALL HCHAR(HVEL+2,1,154) 

IF I=POSI THEN 3450 ELSE 3520 
CALL VCHAR(HVEL+3,1,134,17-HVEL) 
CALL SOUND(1500,-2,0) 

GOSUB 2950 

CALL VCHAR(HVEL+3,1,32,17-HVEL) 
COLP=COLP+1 

CALL VCHAR(HVEL+1,I1,32,2) 

GOTO 3590 

CALL VCHAR(HVEL+3,I,134,19-HVEL) 


3770 
3780 
3790 
3800 
3810 
3820 
38530 
3840 
38950 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 


CALL SOUND (200,1,2) 
NEXT I 

M$s=" GAME 

FOR I=1 TO LEN(M$) 
CALL HCHAR(13,1+5,32) 

CALL HCHAR(14,1+5,ASC(SEG$(M$,I,1))) 
CALL HCHAR(15,1+5,32) 

CALL SOUND(50,1000+(I#100),8) 

NEXT I 

GOSUB 2990 

GOTO 550 

REM PRESENTAZIONE 

CALL CHAR(101,"FF") 

CALL CHAR(102,"7F") 

CALL COLOR(9,10,5) 

RESTORE 3970 

FOR I=i T0 5 

READ DUR, NOTE 

CALL SOUND (DUR, NOTE, 0) 

NEXT I 


Over " 


3970 DATA 330,880, 330, 988,330, 784, 330, 392, 990,587 

3980 PRINT " eee eee ee eeeee eeeee ee ee ee eee ee 

eefe eefe eeeeee eefeeeefe eefe eefefeeee" 

3990 PRINT "ee ee eefe eefe eeefefe ee ee eefe eefeeee eefe ee eefe eefe 

eefeee eefeee ee eefe eefe eefeee eefeee" 

4000 PRINT "eeeeefe eefegeefeeee eefe eee ee ee eee ee eeefefe eeeee 
ee ee eeeee eee ee ee eeee":: 

4010 IF SUONO=0 THEN 4020 ELSE 4160 

4020 SUONO=1 

40350 FOR W=1i TO 2 

4040 FOR I=2 TO 16 STEP 2 

4050 CALL CHAR(102,SEG$("7F7F7F7F7F7F7F7F",1,1)) 

4060 CALL CHAR(101,SEG$("FFFFFFFFFFFFFFFF",1,1)) 

4070 CALL SOUND(100,-1,1/2) 

4080 NEXT I 

4090 IF W=2 THEN 4160 

4100 FOR I=16 TO 2 STEP -2 

4110 CALL CHAR(102,SEG$("7F7F7F7F7F7F7F7F",1,1I)) 

4120 CALL CHAR(101,SE6$("FFFFFFFFFFFFFFFF",1,1)) 

4130 CALL SOUND(100,-3,1/2) 


4140 NEXT I 

4150 NEXT W Dionloaded from sie tiSSiuc.it 

4150 PRINT "_ COPYRIGHT 84 RC SOFTWARE" 1 "AIR RI III III" nni 
4170 PRINT "PREMI : >I PER LE ISTRUZIONI"::" >G PER GIOCARE "::" 


?F_ PER FINIRE" 

4180 CALL KEY(0,K,S) 

4190 IF S=0 THEN 4180 

4200 CALL SOUND (200, 750,0) 

4210 IF K=71 THEN 4260 

4220 IF K=73 THEN 4280 

4230 IF K=70 THEN 4490 

4240 CALL SOUND (200, 110,0) 

4250 GOTO 4180 

4260 RETURN 

4270 REM ISTRUZIONI 

4280 CALL CLEAR 

4290 PRINT "VI SPETTA IL COMPITO DI GUI-":: "DARE UN CUOCO ATTRAVERSO UN"::"LABIR 
INTO CERCANDO DI EVITA-":: 

43500 PRINT "RE DI ESSERE COLPITI DA CAN-"::"NONATE DI FARINA CHE COMUN-":: "QUE S 
ONO ASSENTI NEL PRIMO":: "QUADRO. " 

43109 PRINT :"IL CAMMINO DEL CUOCO NON PUO"::"ESSERE FERMATO BENSI” DIRE- "::"ZI0 
NATO CON I TASTI : » 

4320 PRINT :"E/S/D/X":: "PREMI UN TASTO" 

43530 GOSUB 44350 

43540 FOR I=i TO 24 

4350 CALL SOUND (50, 300,3) 

4360 PRINT 

4370 NEXT I 

4380 PRINT "RACCOLTI TUTTI I QUATTRO IN-"::"GREDIENTI SI PASSA AD UN NUO"::"VO @ 
UADRO DOVE DOVETE COLPI-" 

43590 PRINT :"RE CON LO SPAZIATORE UN CES-"::"TELLO IN MODO CHE LA FARINA "::"IN 
ESSO CONTENUTA CADA NEL ":: 

4400 PRINT "CONTENITORE POSTO IN BASSO"::::::::"PREMI UN TASTO" 

4410 GOSUB 4430 


4420 GOTO 550 4500 PRINT "ARRIVEDERCI...!" 

4430 CALL KEY(0,Kk,5) 4510 PRINT 11111srrsti 

4440 IF_S=0 THEN 4430 4520 FOR S=0 TO 30 STEP 2 

4450 FOR A=0 TD 30 STEP 5 4530 CALL SOUND(-50,230-(4#5),30-S,2300-(40#5),5) 
4460 CALL SOUND(-99,698,A,1924,A) 4540 NEXT S 

4470 NEXT A 4550 FOR S=0 TO 30 STEP 5 

4480 RETURN 4560 CALL SOUND (200, 110,5) 

4490 CALL CLEAR 4570 NEXT S 


4580 END 


RIVISTE ARRETRATE DISPONIBILI 
BASTA INVIARE IN VAGLIA O ASSEGNO LE CORRISPETTIVE 10.000 LIRE 


CONTENUTO N.535 


PICCOLI TRUCCHI NEI PROGRAMMI... 
RIORDINAMENTO ALFABETICO... 
TERMITI (GIOCO) 


SOUBROUTINE CON SFONDO... 

CALCOLO MEMORIA NELLA GEST. DATI 

SAFARI SUL FIUME l «is 

DISPLAY AT VELOCE........000000% 

L'ANGOLO DELLO STUDENTE........ 

PROGRAMMIAMO CON IL JOYSTICK.... 
E COME PER MAGIA 

TRASFORMAZIONI ANGOLARI... 

SOUBROUTINE "TRAIL" 

SOUBROUTINE *PLOT” 

CALL CIRCLE 

METEOR.. 


CONTENUTO N.5 


CONTENUTO N.4 


LABORATORIO FISICA/ACCELERAZIONE 
SIMULAZIONE DI VOLO 

ORGANO SUL TI-99/4A 

ANIMAZIONE DELLA GRAFICA....... 
JUNGLE JIM VERS. ITALIANA 

IL TUBOLARIO LE FRASI DEL TUBO.. 
BATTLE STAR BELLISSIMI SPRITES.. 
BEETHOVEN INNO ALLA GIOIA 
MUSICA DALLA TASTIERA DEL TI.... 
DIMENSIONI RETTANGOLARI (GRAFICA) 
MOSAICO ANIMATO 

FROGRAMMA AREE (by randone) 
FREQUENZE DI UNA LETTERA... 

MINI TEXT EDITOR.. 


SCRIVIAMO IN MINUSCOLO COL TI... 
LE CAPITALI DEL MONDO 

RANDOM MUSIC CONCERTI CASUALI.. 
TRAVERSATA MOVIMENTATA......... 
PROGRAMMA DEI FILES... 

NIGHT BLOCKADE (BATTAGLIA NAVALE) 
FACCIAMO UNA BIBLIOTECA... 
EVASIONE DAL CARCERE....... 

BASE ALFA IN BELLISSIMA GRAFICA 
LO ZIO LARRY . 

FLACK ATTACK (BATTAGLIA AEREA).. 
TRUCCHI SULLA MACCHINA. ......... 





CONTENUTO N.é6 


OLIMPIADI 198584 


CORSA 100 METRI 


OMAGGIO A MOZART.......00002001 CORSA 200 METRI 
WORD PROCESSOR IN ITALIANO...... CORSA 400 METRI 
PROGRAMMA CHAR MULTIHOME........ CORSA 
VOLO DEL CALABRONE........ sedere SALTO 


PROBABILITA" (IN GRAFICA)...... SALTO 
STATISTICA PLURIPROGRAMMA....... 
IDONEITA" ALLO SPORT............ 
MENAGER GIOCO DI FINANZA....... 
CAVE ADVENTURE. .........000000% . 
TEST UDIBILITA" UMANA....... cdl 


COSTRUZIONE DI UN GIOCO 
UTILITY (6 PROGRAMMI IN 1) 


SDESY (GRAFICA).......000000000- GEOMETRIA ANALITICA (PARABOLE).. 
MISTERY SPEEL ‘FAVOLOSO)........ CANNIBALI 

IL TI CARDIOLOGO.......22000000% TOPOGRAFIA (CALCOLI VERTICI).... 
FORZA ITALIA......00020 00000000 I POKE IN BASIC (by randone).... 
AIR FLYGHT (AEREI)......0.000.< . SPRITER COLOR GRAPHIC 

IPPICA... 00.00 sonsonse aisi ereniara TABLUT GIOCO DI GRAFICA 


CALCOLO MATRICIALE 

GRAFICA (87 carat. 4 pag. video) 
SEGRETERIA TELEFONICA.. 
OPERAZIONI MATEMATICHE SUL TI.. 
SIMULAZIONE DEL LOTTO 
INTEGRAZIONE DI CONVULUZIONE.... 
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FRANCOMPUTER 


3.500 SOCI, AMICI, CLIENTI. 
9.000 PROGRAMMI 
18 PUBBLICAZIONI 






FRANCOMPUTER 


‘ S.N.C. CORSO FOGAZZARO, 174-139 - VICENZA 


SHOW ROOM 


ESPOSIZIONE - LABORATORIO «0%. 

20 COMPUTER IN FUNZIONE PER VOI. 
IBM SHARP APPLE CORMNGDOKE SERA 

TEXAS OLIVETTI KI10 AMSTRAD LASER 
Diventate soci del Club (nessuna spe- 
sa) e provate il computer che volete 
prima di acquistarlo. Assistenza conti- 
< nua, una biblioteca per documentarvi, 


- 3000 corrispondenti per scambi di espe- 
rienze, programmi e amicizie a tutto bit 
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